Sub test()
Dim t(0 To 9) As Variant, x As Byte
'initailisation du tableau virtuel
For x = 0 To 9
t(x) = Cells(x + 1, 1)
Next x
'renvoie des variables
For x = 0 To 9
Cells(x + 1, 3) = t(x)
Next x
End Sub
Bonjour à vous, Je me permet de relancer cette discussion car je fais face au même problème et trouver une solution me permettrait d'économiser beaucoup de ligne de code.
Peut être suis je idéaliste mais j'aimerais voir si une solution du style ci dessous existe :
(je reprend l'exemple VAR1, VAR2, VAR3)
for x = 1 to 3
set VAR & x
next x
Désolé j'insiste mais ça me simplifierait tellement la vie.
Oui aprés avoir chercher sur d'autre forums il paraitrait que c'est impossible. Quant à la dernière partie de ton commentaire je t'avoue ne pas bien comprendre..... Je pensais bien faire en prenant la peine d'aller chercher une discussion existant déjà (comme stipulé dans la charte) au lieux de surcharger le forum de discussions redondantes.............
Mais peut être quelque chose m'échappe. Aller A+ Pierrot et merci tout de même d'avoir dénier me répondre
J'ai mis en place la solution conseillée.
Mettre les variables dans une variable tableau
Ex: var1, var2
Devient
Tab(1), tab(2)..
Ainsi tu n'es pas bloqué dans le nb de variable.
Si tu veux en ajouter d'autres, tu redim preserve ton tab:
Redim preserve tab( 1 to ubound(tab,1)+1)
Ce qui te permet de l'inserer dans une boucle