Discussion :

[peaceandloveman01]

Bonjour,

dans mon projet je fais appel à un userform contenant un nombre important de label (environ 60).
L'idée serait d'afficher sur chacun de ces labels une valeur différente inscrite dans une cellule de tableau excel. Et pour aller plus vite lors du codage j'aimerais utiliser une boucle for sur le label et sur la cellule de la worksheet.
Exemple:

Code :

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

1
2
3
4
Dim i as integer
for i=1 to 60
    Label(i).Caption = WorkSheets(1).Cells(i,1)
next i

Je sais que ce code ne marchera pas mais je n'arrive pas à trouver l'astuce qui conviendrai.
Pourriez-vous m'aider svp ???

Merci d'avance!

[tonton fred]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
Dim Ctrl As Control
 
For Each Ctrl In UserForm1.Controls
 
If TypeOf Ctrl Is MSForms.Label Then
Ctrl.Caption = "ce que tu veux"
End If
 
Next Ctrl

[peaceandloveman01]

Merci beaucoup pour cette astuce. J'était loin de me douter que c'était aussi "tordu"
Je viens de l'essayer et il fonctionne parfaitement.Ca me servira sur un autre projet en cours.
Cependant j'aurais aimé pouvoir choisir suivant l'indice "i" le label sur lequel je souhaite afficher une valeur:

Code :

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

1
2
3
4
Dim i as integer
for i=1 to 60
    Label(i).Caption = WorkSheets(1).Cells(i,1)
next i

Comment faire ??

[alsimbad]

tu peux aussi. là je suis pressé, mais cherche controls sur F1
ça fait kekchose du genre

Code :

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

1
2
3
 
for i = 1 to 3
me.controls("nomdemobnlabel" & i).caption = cells(i,1).value

bien sur avant, il faut que tu ai baptisé tout tes label
nomdemonlabel1, nomdemonlabel2 ect ect

[peaceandloveman01]

L'aide F1 n'apport rien, c'est pourquoi je me suis tourné vers le forum...
En tous cas le code:

Code :

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

1
2
for i = 1 to 3
me.controls("nomdemobnlabel" & i).caption = cells(i,1).value

fonctionne parfaitement Ca va pas mal soulager le code !!!

Merci pour tout !