Discussion :

[Wanaka]

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

[wilfried_42]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Didier Gonard]

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

[wilfried_42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Wanaka]

Parfait !!!
Le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!