Faire correspondre deux ComboBox

[zephir94]

Bonsoir à tous,

Après quelques recherches sur le forum je n'ai rien trouvé de probant pour résoudre mon problème.
J'ai deux listes flash1 et flash2 et deux Combobox11 = flash1 et ComboBox1 = flash 2
Flash1 et flash2 sont respectivement en colonne A et B et comporte le même nombre d'éléments
par exemple :
A B
1 blabla
2 hihihih
CE que je voudrais arriver à faire si je sélectionne 2 dans la combobox11 hihihi soit sélectionné aussi et inversement.
J'espère avoir été claire

merci à vous tous.

 

[Robert]

Re : Faire correspondre deux ComboBox

Bonjour Zephir, bonjour le forum,

Peur-être comme ça :

Private Sub ComboBox1_Change()
Me.ComboBox11.ListIndex = Me.ComboBox1.ListIndex
End Sub


Private Sub ComboBox11_Change()
Me.ComboBox1.ListIndex = Me.ComboBox11.ListIndex
End Sub

 

[phlaurent55]

Re : Faire correspondre deux ComboBox

Bonjour zephir,

voir fichier joint

à+
Philippe

Edit: Bonjour Robert, même solution

 

[zephir94]

Re : Faire correspondre deux ComboBox

Un grand merci c'est exactement ce que je veux faire mais je ne vois pas ou tu déclare les listes ? j'ai beau fouiller ???

 

[phlaurent55]

Re : Faire correspondre deux ComboBox

Re,

Un grand merci c'est exactement ce que je veux faire mais je ne vois pas ou tu déclare les listes ? j'ai beau fouiller ???

1- Presser simultanément Ctrl+F3 pour voir les zones nommées (listes)
2- Aller voir les propriétés RowSource des ComboBox

à+
Philippe

 

[zephir94]

Re : Faire correspondre deux ComboBox

C'est bon j'ai trouvé dans les propriétés !
merci à vous deux mais on ne peut pas les déclarer en vba comme ceci ?

Me.Controls("ComboBox11").RowSource = ("flash1")
Controls("ComboBox11").Style = fmStyleDropDownList
ComboBox11.ListIndex = 0
Me.Controls("ComboBox1").RowSource = ("flash2")
Controls("ComboBox1").Style = fmStyleDropDownList
ComboBox1.ListIndex = 0

 

[zephir94]

Re : Faire correspondre deux ComboBox

J'ai bien étudié la chose mais moi je ne veux pas toute la colonne A mais seulement

Sheets("masque2").Range("A3:A11")

 

[zephir94]

Re : Faire correspondre deux ComboBox

j'ai trouvé ça s'écrit comme une formule

=masque2!$A$3:$A$11

Merci à vous deux