Discussion :

[alex_95]

Bonjour,

Voila j ai une userform dans laquelle j ai 20 labels dont les valeurs sources ont 20 cellules Excel:

Code :

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

1
2
3
4
5
label1=Range("A1")
label2=Range("A2")
label3=Range("A1")
...
label20=Range("A20")

Comment faire une boucle pour faire en qqs lignes ceci :

Code :

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

1
2
3
4
5
6
For a=1 to 20
  Do
         label & a = Range ("A"&a)
  Exit Do
  Loop
Next a

Comment faire qqch comme ca ???

Merci d avance

[Megaxel]

Regarde la propriété ".Name" des éléments de la collection "Controls". Je crois que ça te donnera des idées.

[alex_95]

cad ?

J n arrive tjs pas a faire ma boucle...

[Megaxel]

C'est à dire comme ça:

Code :

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

1
2
3
4
5
6
Sub TestLabels()
    For i = 1 To 3
        UserForm1.Controls("Label" & i).Caption = Range("A" & i)
    Next i
    UserForm1.Show
End Sub

[SfJ5Rpw8]

tiens ... voilà ce que voulait dire Megaxel...

Code :

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

1
2
3
4
 
For i = 1 To 20
  Controls("Label" & i).Caption = i
 Next

[edit] ... lol Megaxel à du répondre pendant que mes tests sous excel... et en plus je suis pas complet ... j'ai oublié le range...

[alex_95]

Merci bcp a tous les 2