Liste qui diminue dans 3 combobox

[marcelio]

Bonjour à tous,

J'ai un USF avec 3 combobox qui ont chacun dans le RowSource la même liste.
Je doit choisir dans chaque combobox un nom.
Ce que j'aimerais si cela est possible,
le nom choisi dans le combobox1 ne doit plus apparaitre dans le combobox2 & 3
et de même pour le combobox2 pour le combobox3
Si vous avez une solution.
Merci d'avance

Marcelio

 

[Papou-net]

Re : Liste qui diminue dans 3 combobox

Bonsoir Marcelio,

Vois si la version modifiée de ton fichier répond à ta demande.

Cordialement.

 

[marcelio]

Re : Liste qui diminue dans 3 combobox

Bonsoir le Forum, Papou-net,

Merci de votre aide,
Cela fonctionne à merveille.
Merci et bonne soirée à vous et au Forum.
Marcelio

 

[marcelio]

Re : Liste qui diminue dans 3 combobox

Bonjour le Forum, Papou-net,

Ton code fonctionne très bien, mais j'ai un souci pour une nouvelle feuille.
Les noms de la colonne A10:A21 sont des formules.
J'ai donc en jaune dans le VBA cette ligne :
"For Each cel In Range("A10").CurrentRegion.SpecialCells(xlCellTypeConstants)"

Si tu à une nouvelle solution
Merci d'avance
Marcelio

 

[Papou-net]

Re : Liste qui diminue dans 3 combobox

Bonjour Marcelio,

Pour ne prendre en compte que les cellules contenant des formules:

For Each cel In Range("A10").CurrentRegion.SpecialCells(xlCellTypeFormulas)

Pour ne pas tenir compte du type de contenu des cellules::

For Each cel In Range("A10:A" & Range("A" & Rows.Count).End(xlUp).Row)

Cordialement.

 

[marcelio]

Re : Liste qui diminue dans 3 combobox

Re,

Merci Papou-net tout fonctionne correctement.
Bon après midi à toi et au Forum.
Marcelio