XL 2016 Label itération

[marg55]

Bonjour,

Dans le cadre de la création d'une IHM j'aimerai donner des noms bien spécifique à des Labels.

J'ai constaté que je pouvais le faire en faisant par exemple :
Label1 = 1
Label2 = 2
Label3 = 3 etc...

Maintenant, j'aimerai pouvoir entrer le nom de bien plus de Label, donc j'aimerai créer une itération pour que le remplissage se fasse automatiquement.
Par exemple je pensais à quelque chose de la sorte :

Private Sub Initialization()

Dim i As Integrer
For i = 0 To 3
Labeli = Range("Ai")
i = i + 1
Next i
End Sub

Je comprend bien que cela ne marche pas,
inspiré d'un tutoriel sur les TextBox, j'ai également testé ceci :

Private Sub CommandButton1_Click()
For i = 1 To 3
Controls("Label" & i).Value = Range("A" & i)
Next
End Sub

Et ca ne marche pas non plus.
Est ce que quelqu'un aurait une idée ?

Je vous remercie par avance!

PS: Je vous joint mes fichiers ou j'ai fait mes tests pour que vous puissiez me dire ce que vous en pensez!!!


EDIT :
J'ai également essayé cela :

Private Sub Initialization()

For Each ctl In Me.Controls
Dim i As Integer
For i = 1 To 10
Me.Controls("Label" & i).Caption = "New caption " & i
Next i
Next ctl
End Sub


Mais rien ne se passe...

 

[JM27]

Bonjour
un label n'a pas de propriété value
tu en étais pas loin

Private Sub CommandButton1_Click()
    For i = 1 To 3
        Controls("Label" & i).Caption = Range("A" & i)
    Next
End Sub

 

[JM27]

Bonjour
un label n'a pas de propriété value
tu en étais pas loin

Private Sub CommandButton1_Click()
    For i = 1 To 3
        Controls("Label" & i).Caption = Range("A" & i)
    Next
End Sub

Pour info : Private Sub UserForm_Initialize() et non pas Sub Initialization()

 

[marg55]

Merci beaucoup, effectivement je ne comprenais pas pourquoi mes interfaces utilisateurs ne s'initialisaient pas! Tout s'explique! Mes labels portent désormais tous le bon nom ! je vous remercie pour votre réponse rapide ! @JM27