Discussion :

[Liloo14]

Bonjour à tous,
J'ai une userform avec des labels et une feuille de calcul contenant des informations.
La feuille présente 7 colonnes sur 80 lignes.
Les labels dans la userform se présentent de la même façon en 7 colonnes de labels sur 80 lignes. Les labels sont nommés en colonne de cette manière :
Label7 Label87
Label8 Label88
Label9 Label89
etc etc

et comme ça sur 7 colonnes.

Pour l'instant j'incrémente les labels avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
TableauConsultation.Label7 = Sheets("Feuil2").Range("K2")
TableauConsultation.Label8 = Sheets("Feuil2").Range("K3")
TableauConsultation.Label9 = Sheets("Feuil2").Range("K4")
TableauConsultation.Label10 = Sheets("Feuil2").Range("K5")
TableauConsultation.Label11 = Sheets("Feuil2").Range("K6")
TableauConsultation.Label12 = Sheets("Feuil2").Range("K7")
TableauConsultation.Label13 = Sheets("Feuil2").Range("K8")
TableauConsultation.Label14 = Sheets("Feuil2").Range("K9")
TableauConsultation.Label15 = Sheets("Feuil2").Range("K10")
TableauConsultation.Label16 = Sheets("Feuil2").Range("K11")
TableauConsultation.Label17 = Sheets("Feuil2").Range("K12")
TableauConsultation.Label18 = Sheets("Feuil2").Range("K13")

J'aimerais trouver un code qui soit moins lours car multiplié par le nombre de labels je vous laisse imaginer le nombre de lignes de code.

Quelqu'un pourrait-il m'aiguiller?

Merci par avance

Laurent

[mercatog]

Code :

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

1
2
3
For i = 2 To 20
    TableauConsultation.Controls("Label" & 5 + i) = Sheets("Feuil2").Range("K" & i)
Next i

[Liloo14]

C'est cool Mercatog.
Merci beaucoup