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 :
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.
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")
Quelqu'un pourrait-il m'aiguiller?
Merci par avance
Laurent
Partager