Label.caption automatique

[Claudy]

Bonjour,
Un USF, des labels, un tableau avec des entêtes de colonnes (A1:N1)
Comment initialiser mon USF pour que chaque label prennent le caption de A1, B1...etc
Merci d'avance,
Claudy

 

[sacapatates]

Re : Label.caption automatique

Salut, les labels sont générés de façon dynamique ?
Sinon, userform1.label1.caption = sheets("feuil1").cells(1,1).value à mettre dans la fonction initialize du userform

 

[Claudy]

Re : Label.caption automatique

Bonjour et merci pour ta réponse rapide...
Que veux tu dire par dynamique?
J'ai essayé ce code, mais évidemment ça bug :

Private Sub UserForm_Initialize()
For i = 1 To 14
Label & i.Caption = Cells(1, i).Value
Next i
End Sub


A+
claudy

 

[sacapatates]

Re : Label.caption automatique

Tu peux essayer ca

Private Sub UserForm_Initialize()

Dim Ctrl As Control
dim i as integer
i=1
For Each Ctrl In Me.Controls
Ctrl.caption= Cells(1, i).Value
i=i+1
Next Ctrl

End Sub

 

[Claudy]

Re : Label.caption automatique

Ok, merci,
j'ai trouvé avec ce code:

Private Sub UserForm_Initialize()
For i = 1 To 14
UserForm1.Controls("Label" & i).Caption = Cells(1, i).Value
Next

End Sub

a+
Claudy

 

[Claudy]

Re : Label.caption automatique

Salut, les labels sont générés de façon dynamique ?

Pourrais tu me donner une petite explication?
merci