labels qui récupèrent les entetes des colonnes

[dindin]

Bonjour
j'aurai besoin d'afficher les entêtes des colonnes A3 à R 3sur des labels de 1 à 24 à l'ouverture du form
Merci pour votre aide .

 

[Staple1600]

Re : labels qui récupèrent les entetes des colonnes

Bonjour à tous

dindin
Dans ton fichier, les entêtes sont en ligne 2, non ?
C'est ce qui explique la présence du 2 dans le code ci-dessous

Private Sub UserForm_Initialize()
Dim ctrl As Control, i&
i = 1
For Each ctrl In Me.Controls
    If TypeOf ctrl Is MSForms.Label Then
    ctrl.Object.Caption = Sheets(1).Cells(2, i)
    i = i + 1
    End If
Next ctrl
End Sub

[Edit:] Gaspacho! Bing Modeste 🙂, mais ravi itou de te croiser!

 

[Modeste]

Re : labels qui récupèrent les entetes des colonnes

Bonjour dindin,

Sans doute avec quelque chose comme:

Private Sub UserForm_Initialize()
For col = 1 To 24
    Me.Controls("label" & col).Caption = Sheets("Feuil1").Cells(2, col)
Next col
End Sub

[Edit:] Gasp! Sorry JM 🙂, mais ravi de te croiser!

 

[dindin]

Re : labels qui récupèrent les entetes des colonnes

Merci à vous

 

[laetitia90]

Re : labels qui récupèrent les entetes des colonnes

bonjour dindin, Jean Marie, Modeste 🙂🙂🙂

ou encore pour simplifier

Private Sub UserForm_Initialize()
 Dim i As Byte
 For i = 1 To 24: Me("label" & i) = Feuil1.Cells(2, i): Next i
End Sub