Incrémenter des labels avec les informations des cellules d'une feuille de calcul
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:
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
