Combobox "double cascade"

Chombi

XLDnaute Occasionnel
Bonjour à tous

Dans un UF : 2 combobox, les 2 se chargent de la même liste (colonne AA feuil 1)
Si on sélectionne un jour dans la 1er je voudrai que ce jour se retire de la liste de la 2eme.
De même si on sélectionne un jour dans la 2eme je voudrai que ce jour se retire de la liste de la 1ere.
ceci afin de ne pouvoir sélectionner 2 fois le même jour

au plaisir de vous lire
 

Pièces jointes

  • Test CB casc Excel.xlsm
    19.7 KB · Affichages: 57

Dranreb

XLDnaute Barbatruc
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
 

Chombi

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
13
Affichages
637
Réponses
4
Affichages
468

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof