Synchronisation RowSource Combobox

Bonjour,

Mon Userform contient quatre Combobox qui sont alimentées selon une plage nommée "PLAGE1" se trouvant dans une feuille "ART".

Je souhaite synchroniser les Combobox entre elles afin que les RowSource s'adaptent selon les valeurs sélectionnées.

Exemple:

Après qu'une donnée soit sélectionnée dans la combobox1, je souhaite qu'elle n'apparaisse plus dans les Combobox qui suivent (combobox2, combobox3, combobox4).

J'ai déjà essayer d'appliquer un code avec conditions mais cela n'a pas fonctionné.

Voici donc mon code sans les conditions :

Private Sub UserForm_Initialize()

ComboBox1.RowSource = "ART!PLAGE1"
ComboBox1.ListIndex = -1

ComboBox2.RowSource = "ART!PLAGE1"
ComboBox2.ListIndex = -1

ComboBox3.RowSource = "ART!PLAGE1"
ComboBox3.ListIndex = -1

ComboBox4.RowSource = "ART!PLAGE1"
ComboBox4.ListIndex = -1

End Sub

En espérant que quelqu'un pourra m'aider, je vous remercie d'avance.

Meilleures Salutations,

AliasOne

Salut le forum

Pas vraiment saisie ton code

Ajout Item dans ComboBox

Dim strIndex As Integer

Private Sub cmdAddItem_Click()
Combo1.AddItem "sam"
Combo1.AddItem "sam1"
Combo1.AddItem "sam2"
End Sub

Récupérer Index de l'Item sélectionné

Private Sub cmdGetIndex_Click()
strIndex = Combo1.ListIndex
MsgBox strIndex
End Sub

Supprimer un Item

Private Sub cmdGetIndex_Click()
Combo1.RemoveItem strIndex
End Sub

Mytå

Bonjour Mytå et merci pour ta réponse.

J'ai essayé d'appliquer tes codes mais ce n'est malheureusement pas ce que je veux...

Il est parfois difficille de s'exprimer clairement lorsque on débute avec quelque chose....

Je joint mon fichier.

Merci à ceux qui prendront le temps de m'aider!

AliasOne

Bonjour

Un essai

Je pense qu'il y a plus simple

Bonjour Banzai64,

Il y' a peut-être plus simple mais cela fonctionne à merveille!

Je te remercie sincèrement pour ton aide!

Meilleurs salutations,

AliasOne