Combobox "double cascade"

Dranreb

XLDnaute Barbatruc

• 6 Mai 2017

• #2

Bonjour.
Comme ça, ça a l'air pas mal:

VB:

Private TCBxList()
Sub UserForm_Initialize()
Me.ComboBox1.List = Feuil1.[A1:A7].Value
TCBxList = Me.ComboBox1.List
Me.ComboBox2.List = TCBxList
End Sub
Private Sub ComboBox1_Change()
RectifList
End Sub
Private Sub ComboBox2_Change()
RectifList
End Sub
Private Sub RectifList()
Dim LIx1&, LIx2&
ComboBox1.List = TCBxList: LIx1 = ComboBox1.ListIndex
ComboBox2.List = TCBxList: LIx2 = ComboBox2.ListIndex
If LIx1 >= 0 Then ComboBox2.RemoveItem LIx1
If LIx2 >= 0 Then ComboBox1.RemoveItem LIx2
End Sub

 

Vote positif 0 Vote négatif

C

Chombi

XLDnaute Occasionnel

• 6 Mai 2017

• #3

Un grand merci Dranreb pour le code, parfait et adapté à mon fichier d'origine.
Merci aussi pour le petit conseil d'hier soir n’étant pas venu ici depuis un certain temps j’étais un peu perdu et peut être un peu pressé
Pardon à vous 4 pour le dérangement

 

Vote positif 0 Vote négatif

C

Chombi

XLDnaute Occasionnel

• 19 Octobre 2017

• #4

Bonjour à tous

je me permet de remettre ce fil en route, bien qu'il m'ai donné toute satisfaction

je voudrai faire la même chose avec 6 combobox est ce possible?

Merci

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 19 Octobre 2017

• #5

Bonjour.
Certainement.
Mais ça risque d'être un peu plus compliqué.
Il va falloir le faire avec deux boucles imbriquées genre For I = 1 to 6: for J = 1 to 6:If J<>I Then, après With Me("ComboBox" & J) etc.

 

Vote positif 0 Vote négatif

C

Chombi

XLDnaute Occasionnel

• 19 Octobre 2017

• #6

Merci Dranreb

je vais chercher dans ce sens, si je coince je reviens

 

Vote positif 0 Vote négatif