Forum Liberty Basic France

Le 30/06/2020 à 16h12

Libertynaute

Groupe: Membre

Inscrit le: 17/12/2010
Messages: 96
Slt,

Je souhaite faire fonctionner la Fonction N° 2, mais j'y arrive pas :/

Code VBA :
 
'exemple tab
dim tab0(12)
dim tab1(12)
dim tab2(12)
 
'exemple init
tab0(6) = 0
tab1(6) = 11
tab2(6) = 22
'[...]
 
'---test 1
print selectTabV1(2)    'on souhaite utiliser le tableau N°2
 
'---test 2
print selectTabV2(2)    'on souhaite utiliser le tableau N°2
 
wait
 
'---------------------------------
function selectTabV1(x)
'cette fonction fonctionne bien !
 
    select case x
     case 0
        selectTabV1 = tab0(6)
     case 1
        selectTabV1 = tab1(6)
     case 2
        selectTabV1 = tab2(6)
    end select
 
end function
 
'---------------------------------
function selectTabV2(x)
'ici je souhaite utiliser la variable 'x' pour sélectionner mon tableau
'MAIS j'y arrive pô^^^^
 
        selectTabV2 = "tab";chr(x);"(";6;")"
 
end function
 
 
____________________
"L'urgent c'est fait ! L'impossible est en cours... pour les miracles, merci de prévoir un délai supplémentaire !"

   

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie