label modofié automatiquement

[fr832]

Bonjour et mes meilleurs voeux à tous , est il possible que les labels d'un userform se modifient automatiquemnt lorsque je changerais mes noms dans ma feuille excel.
J'ai mis un exemple en pièce jointe.

Par avance merci merci beaucoup.

 

[Guest]

Re : label modofié automatiquement

Bonjour,

Private Sub UserForm_Initialize()
With Feuil1
    Label1 = .[B3]
    Label2 = .[C3]
    Label3 = .[D3]
    Label4 = .[E3]
End With
End Sub

Ou avec une boucle For mais pour 4 labels ça n'apporte aucun plus.

A+

 

[fr832]

Re : label modofié automatiquement

Bonjour et merci hasco, en fait c'est un exemple que j'ai joint mon vrai programme comporte 15 labels de noms.

Ton code je le colle dans un module ?
merci pour tes lumières

 

[fr832]

Re : label modofié automatiquement

C'est bon hasco j'ai réussi l'ai copié dans l'usf, merci encore pour tout amitiés

 

[Guest]

Re : label modofié automatiquement

Re,

Si tu as 15 labels nommés de Label1 à Label15 dont les informations sont dans les colonne b à p:

Private Sub UserForm_Initialize()
Dim i As Integer
With Feuil1
    For i = 1 To 15
     Me.Controls("Label" & i) = .Cells(3, i + 1) 'i+1 parceque colonne B est la première colonne
    Next i
End With
End Sub

A+

 

[fr832]

Re : label modofié automatiquement

Merci pour tes lumières HASCO je te souhaite tous mes voeux pour cette nouvelle année amitiés