Récupérer une valeur sur un Label

[guy72]

Bonjour,
Sur la "Feuil1", j'ai un UseForm avec 6 Labels.
Sur la "Feuil2", j'ai 6 noms en J26:J31.
Je souhaite récupérer ces noms dans les Labels.
Je sais c'est simple, mais impossible de me rappeler.

Private Sub UserForm_Click()
Label1.Caption = Sheets("Liste").[J26].Value
Label2.Caption = Sheets("Liste").[J27].Value
Label3.Caption = Sheets("Liste").[J28].Value
Label4.Caption = Sheets("Liste").[J29].Value
Label5.Caption = Sheets("Liste").[J30].Value
Label6.Caption = Sheets("Liste").[J31].Value
End Sub

Merci de votre aide
Cordialement
Guy

 

[Efgé]

Re : Récupérer une valeur sur un Label

Bonjour guy72,
Peut être avec :

Private Sub UserForm_Initialize()

Cordialement

 

[Dull]

Re : Récupérer une valeur sur un Label

Salut Guy, FG 🙂 le Forum

je dirais même plus...et plus court

[COLOR=BLUE]Private Sub[/COLOR] UserForm_Initialize()
[COLOR=BLUE]Dim[/COLOR] i [COLOR=BLUE]As Byte[/COLOR]
[COLOR=BLUE]For[/COLOR] i = 1 [COLOR=BLUE]To[/COLOR] 6
    Controls("Label" & i).Caption = Sheets("Liste").Range("J" & i + 25).Value
[COLOR=BLUE]Next[/COLOR] i
[COLOR=BLUE]End Sub[/COLOR]

ÉDITION: T'as raison Lætitia🙂 yapasdepetiteséconomies 😀

Bonne Journée

 

[laetitia90]

Re : Récupérer une valeur sur un Label

bonjour tous ,pour faire court tu peus supprimer caption & value pas utile dans ce cas la

Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To 6: Controls("Label" & i) = Sheets("Liste").Cells(i + 25, 10): Next
End Sub

 

[guy72]

Re : Récupérer une valeur sur un Label

Bonjour guy72,
Peut être avec :

Private Sub UserForm_Initialize()

Cordialement

Bonjour,
Ok merci de ton aide
Cordialement

 

[guy72]

Re : Récupérer une valeur sur un Label

Bonjour à tous,
Merci à tous de votre aide.
Cordialement
Guy