boucle dans déclaration variant

matis3854 · 9 Avril 2009

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 · 9 Avril 2009

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 · 9 Avril 2009

Re : boucle dans déclaration variant

bonjour matis3854

une proposition

Code:

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 · 9 Avril 2009

Re : boucle dans déclaration variant

Merci à tous,

Problème résolu rapidement comme toujours ici.

Bonne fin de journée

boucle dans déclaration variant

matis3854

Guest

tototiti2008

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

matis3854

Guest

Discussions similaires

boucle dans déclaration variant

matis3854

Guest

tototiti2008

XLDnaute Barbatruc

pierrejean

XLDnaute Barbatruc

matis3854

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency