label modofié automatiquement

G

Guest

Guest

• 1 Janvier 2010

• #2

Re : label modofié automatiquement

Bonjour,

Code:

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+

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 1 Janvier 2010

• #3

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

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 1 Janvier 2010

• #4

Re : label modofié automatiquement

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 1 Janvier 2010

• #5

Re : label modofié automatiquement

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif

fr832

XLDnaute Occasionnel

• 1 Janvier 2010

• #6

Re : label modofié automatiquement

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

 

Vote positif 0 Vote négatif