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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
FOR i=0 ...
Variable1 = (LB & i).value
NEXT
Mais evidemment ca ne marche pas ...
Comment puis-je procéder ?



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 : Sélectionner tout - Visualiser dans une fenêtre à part
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