Faire correspondre les listes de trois ComboBox

[zephir94]

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 :

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.

 

[zephir94]

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 !

 

[zephir94]

Re : Faire correspondre les listes de trois ComboBox

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

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