boucle dans déclaration variant

[matis3854]

Bonjour à tous,

Alors aujourd'hui, le problème est le suisvant:

Je voudrais déclarer plusieurs variables dont le nom différe que d'un numéro, exemple toto1, toto2, toto3...

Pour effectuer cette déclaration je code la chose suivante :

For i = 1 To n
dim toto& i as Variant

toto& i=sheets("feuille" & i & "").range(b3")

next

en gros j'affecte la mm valeur de chaque feuille à mes toto

mais il ne comprend pas ma déclaration avec une boucle...

WHY?? je sais pas, peut etre pourrez vous m'éclairer???

 

[tototiti2008]

Re : boucle dans déclaration variant

Bonjour matis3854,

désolé, pas de boucle possible dans les déclarations de variables...
Par contre tu peux utiliser un tableau :

Dim toto (1 To 100), i as long

For i = 1 to 100
toto(i) = sheets("feuille" & i).range("b3").value
next i

 

[pierrejean]

Re : boucle dans déclaration variant

bonjour matis3854

une proposition

Public toto() As Variant
Sub test()
n = 3
ReDim toto(1)
For i = 1 To n
 toto(i) = Sheets("feuil" & i ).Range("b3")
 ReDim toto(UBound(toto) + 1)
Next
End Sub

ta variable sera toto(x) avec x de 1 a 3

Edit: Salut tototiti

 

[matis3854]

Re : boucle dans déclaration variant

Merci à tous,

Problème résolu rapidement comme toujours ici.

Bonne fin de journée