Nom de variable concaténé

Bonjour,

Je bute sur un petit truc qui semble tout bete, et pourtant ...

J'ai plusieurs listebox nommées LB1, LB2, ..., LBn
Je voudrais obtenir la valeur de toutes ces Listesbox !
J'ai donc essaye de les obtenir dans une boucle du style

Code:

---

1 2 3

FOR i=0 ... Variable1 = (LB & i).value NEXT

---

Mais evidemment ca ne marche pas ...
Comment puis-je procéder ?

:merci:

Je me rend compte que mon exemple de code n'est pas très clair, donc je mets une partie du code du formulaire, ca sera plus simple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

'Insertion des données dans le tableau MagFrame1 = Me.MagBox1.Value FinFrame1 = Me.TextBox1.Value MagFrame2 = Me.MagBox2.Value FinFrame2 = Me.TextBox2.Value MagFrame3 = Me.MagBox3.Value FinFrame3 = Me.TextBox3.Value   For i = 1 To Me.Toupie.Value Step 1 'ActiveDocument.Tables(1).Cell(i + 1, 1).Range.Text = MagFrame & i 'ActiveDocument.Tables(1).Cell(i + 1, 2).Range.Text = FinFrame & i MsgBox ("i vaut " & i & "et le message vaudrait " & Magframe & i) Next i

---

:lol::lol::lol::lol:

Bonjour

un code uniquement pour t'aiguiller sur la syntaxe à utiliser car je n'ai pas tout compris

Code:

---

1 2 3

For i = 1 to 3 msgbox me.controls("MagBox" & i).value next i

---

Bonjour,

Pour moi, ce que j'en comprend, ça sentirait à plein nez la variable tableau ;)

Voir tout ce qu'il faut ici si besoin, c'est plus simple que ça en a l'air :

http://silkyroad.developpez.com/vba/tableaux/


cordialement,

Didier

Bonjour ormonth

oui j'y ai pensé, mais comme est fait son code, je ne vois pas l'interet de tout décharger dans des variables. le code serait plus simple comme cela :

Code:

---

1 2 3 4 5

For i = 1 To Me.Toupie.Value1 'ActiveDocument.Tables(1).Cell(i + 1, 1).Range.Text = MagFrame & i 'ActiveDocument.Tables(1).Cell(i + 1, 2).Range.Text = FinFrame & i MsgBox "i vaut " & i & "et le message vaudrait " & me.controls("MagBox" & i) Next i

---

Parfait !!!
Le code

Code:

---

me.controls("MagBox" & i)

---

me convient parfaitement pour ce que j'ai à faire, et le passage en tableau me servira pour la suite !!! (J'avais un peu oublié la facon de procéder pour mettre en tableau en VBA :?)

Merci beaucoup pour tout, je repars bosser dessus !!!
:merci: