Ecrire un tableau

Bonjour,

ma question est surement de base mais je me remet au vba donc plus les réflexes.

mon but est de réaliser un menu déroulant de l'ensemble des libellés des colonnes non vides de la feuille 1 qui va de A1 à ....dynamique.

je souhaite donc pour commencer par enregistrer les nom des entête de A1 à x.

j'ai déclaré un tableau et redimensionné en dynamique avec le nb de colonne du fichier.

je n'arrive pas à mettre dans le tableau le nom de chaque en tête de colonne

erreur : l'indice n'appartient pas à la sélection

merci pour votre aide

Bonjour,

Essaie ainsi :

Option Explicit
'Procédure à copier dans un module standard
'Pas dans le module ThisWorkbook !...
Sub NomColonne()
Dim tbl As Variant
Dim lastCol As Long, I As Long
    With ActiveSheet
        lastCol = ActiveSheet.Cells(1).End(xlToRight).Column
        tbl = Application.Transpose(.Cells(1).Resize(, lastCol))
    End With
    For I = 1 To UBound(tbl)
        MsgBox tbl(I, 1)
    Next I
End Sub

Bonjour,

Salut Jean-Eric !

Sub MenuDéroulant()
    Dim lst$, k%
    With Worksheets("Feuil1").Range("A1")
        For k = 1 To .End(xlToRight).Column
            lst = lst & "," & .Cells(1, k)
        Next k
    End With
    lst = Replace(lst, ",", "", 1, 1)
    With Worksheets("Feuil2").Range("A1").Validation
        .Delete
        .Add xlValidateList, , , lst
    End With
End Sub

Cordialement.

super !!

merci beaucoup et très bonne journée

jérome