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
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+
Bonjour DucOn45,
Merci pour le retour, oui j’ai du VBA derrière, je pensais que c’était plus simple !
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
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)
Chez moi ça marche pas !
Il faut exécuter la macro AlimCombo. Onglet Affichage, Afficher les macros :
Et cliquer sur Exécuter.
Daniel
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
Re,
OK, je reviens demain matin avec des nouvelles.
Merci et à +
Rubis
Bonsoir,
Merci de participer. Je verrai cela demain matin et je tiendrai informé.
A+
Rubis
Bonjour Cousinhub,
je viens de tester ta proposition et cela me convient.
Merci à toi
Rubis