Combo Box dont la source est le headers d'une Table

Bonjour,

Je souhaiterai faire une combo box (liste déroulante) dont la source est le #headers d'une table.

Le problème c'est que la combo box fonctionne uniquement avec des listes verticales mais ne fonctionne pas avec une liste horizontale...

donc

=MaTable[#Headers]

ne fonctionne pas.

J'ai également essayé en passant par du VBA avec Transpose (je n'ai plus le script) mais sans succès.

Avez-vous une solution (mise à part l'utilisation du "Data Validation") ?

Merci

Bonjour,

Utiliser Application.Transpose()

Ceuzin

Bonjour,

Au lieu de :

ComboBox1.List = WorksheetFunction.Transpose(...

Tu peux faire :

ComboBox1.Column = ... 'sans transposer, la propriété Column transpose par rapport à List

Cordialement.

Merci pour vos retours mais je n'arrive pas à appliquer ce code sur mon fichier.

J'ai fait un fichier d'exemple simplifié en pj.

>> Pouvez-vous me donner un exemple sur cette base svp ?

Merci

Tu avais omis de dire que ton contrôle était dans la feuille... c'est une peu différent d'un Userform.

Ensuite tu n'as pas inséré une ComboBox mais une DropDown (liste déroulante combinée de formulaire), c'est autre chose (et au cas particulier entraînera des complications pour le programmer...)

En remplaçant le contrôle :

Private Sub ComboBox1_DropButtonClick()
    ComboBox1.Column = ActiveSheet.ListObjects("TableMC").HeaderRowRange.Value
End Sub

Le clic sur la flèche active la mise à jour de la liste.

Cordialement.