Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Faire correspondre les listes de trois ComboBox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

zephir94

XLDnaute Impliqué
Bonsoir à tous,

Suivant vos conseils éclairés j'ai réussi à faire coïncider les listes de deux ComboBox.
Je voudrais en lier une troisième au deux premières.

Je pensais que 1=2 et 2=3 soit implicitement 1=3, mais ça ne marche pas.
J'ai dans l'ordre suivant trois ComboBox : 48, 66, 75

Voici mon code :

Code:
Private Sub ComboBox48_Change()
Me.ComboBox66.ListIndex = Me.ComboBox48.ListIndex
Controls("ComboBox48").Style = fmStyleDropDownList
End Sub

Private Sub ComboBox66_Change()
Me.ComboBox48.ListIndex = Me.ComboBox66.ListIndex
Controls("ComboBox66").Style = fmStyleDropDownList
End Sub

Private Sub ComboBox75_Change()
Me.ComboBox66.ListIndex = Me.ComboBox75.ListIndex
Controls("ComboBox75").Style = fmStyleDropDownList
End Sub

Pour l'instant je n'ai que les deux premières qui sont liées et la troisième n'affiche rien, bien sûr les listes sont dument renseignées respectivement.

Merci à vous tous.
 
Dernière édition:
Re : Faire correspondre les listes de trois ComboBox

je viens de m'apercevoir que en fait si je sélectionne en ComboBox 3 il affiche les deux autres liste donc je vais essayer de rajouter dans la première la troisième !
 
Re : Faire correspondre les listes de trois ComboBox

c'est bon j'ai trouvé, cela servira peut-être à d'autres

Code:
Private Sub ComboBox48_Change()
Me.ComboBox66.ListIndex = Me.ComboBox48.ListIndex
Controls("ComboBox48").Style = fmStyleDropDownList
End Sub

Private Sub ComboBox66_Change()
Me.ComboBox75.ListIndex = Me.ComboBox66.ListIndex
Controls("ComboBox66").Style = fmStyleDropDownList
End Sub
Private Sub ComboBox75_Change()
Me.ComboBox48.ListIndex = Me.ComboBox75.ListIndex
Controls("ComboBox75").Style = fmStyleDropDownList
End Sub

Bonne soirée au forum

Zephir
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…