Alimentation Combobox activex

[Rubis57]

Bonjour tout le forum,

je cherche à alimenter un combobox activeX sur un onglet.

Pourriez-vous m’expliquer comment faire cela en sachant que ce combobox doit contenir les données d’une colonne d’un TS qui se nomme Tab_Liste_CAP et la colonne concernée se nomme LISTE CAP.

J’espère que cela ira sans fichier modèle, à vous de me dire.

Merci d’avance à vous.

Rubis

[DucOn45]

Bonjour Rubis57
Juste une question, pourquoi vouloir utiliser un contrôle ActiveX (risque de sécurité) plutôt qu’une validation de donnée vous avez du VBA derrière ?
A+

[Rubis57]

Bonjour DucOn45,

Merci pour le retour, oui j’ai du VBA derrière, je pensais que c’était plus simple !

[Daniel77]

Bonjour à tous,

A mettre dans le module de la feuille (sinon, remplacer “me” par le nom de la feuille contenant le combobox)

Sub AlimCombo()
  Dim C As Range
  Me.ComboBox1.Clear
  For Each C In Sheets("Feuil2").ListObjects("Tab_Liste_CAP").ListColumns("LISTE CAP").DataBodyRange
  Me.ComboBox1.AddItem C.Value
  Next C
End Sub

(Remplacer “Feuil2” par le nom de la feuille contenant le TS).

Daniel

[Rubis57]

Bonjour Daniel,

Merci également pour ton retour.
Par contre je n’arrive pas à faire fonctionner cela.
Je ne trouve pas l’erreur !

Merci d’avance pour l’info.

Rubis
Alimentation Combobox activeX.xlsm (20,4 Ko)

[Daniel77]

Pour moi, c’est OK :

Daniel

[Rubis57]

Chez moi ça marche pas !

[Daniel77]

Il faut exécuter la macro AlimCombo. Onglet Affichage, Afficher les macros :

Et cliquer sur Exécuter.

Daniel

[Cousinhub]

Bonjour,
Essaie avec ce code dans l’évènement de Feuille

Private Sub ComboBox1_DropButtonClick()
Me.ComboBox1.List = [FILTER(Tab_Liste_CAP[LISTE CAP],Tab_Liste_CAP[LISTE CAP]<>"")]
End Sub

[Rubis57]

Re,

OK, je reviens demain matin avec des nouvelles.

Merci et à +
Rubis

[Rubis57]

Bonsoir,

Merci de participer. Je verrai cela demain matin et je tiendrai informé.

A+
Rubis

[Rubis57]

Bonjour Cousinhub,

je viens de tester ta proposition et cela me convient.

Merci à toi

Rubis