liaison entre combo box

Le
Jed
Bonjour à tous,

J'ai une application excel 2000 avec 7 combo box.
J'ai alimenté tous les combo avec : rowsource = A52:A59

J'aimerai quand je selectionne dans combobox1 une valeur, que cette valeur
soit retirer des autres combo. !!

Exemples :
Liste valeur dans A52:A59

Soude <48%
Acide sulfurique <100%
Ammoniaque <28%
Hydrazine <24%
Acide nitrique <100%
Acide chlorhydrique <35%
Chlorure ferrique <41 %
Eau de javel

Si dans combobox1, je selectionne "Soude <48%"
dans les autres combobox "Soude" doit etre retirer pour ne plus laisser ce
choix.

La selection peut être n'import où dans la liste.

QQ peut -il me conseiller sur ce coup là ??

Merci a tous
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Youky
Le #15299691
Bonjour,
Laisser la rowsource au combobox1 seulement

Private Sub ComboBox1_Click()
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
ComboBox6.Clear
For k = 0 To ComboBox1.ListCount - 1
If ComboBox1.List(k) <> ComboBox1.Text Then _
ComboBox2.AddItem ComboBox1.List(k)
Combobox3.Additem ComboBox1.List(k)
Combobox4.Additem ComboBox1.List(k)
Combobox5.Additem ComboBox1.List(k)
Combobox6.Additem ComboBox1.List(k)
Next
End Sub

Si besoin aussi de répéter sur le combobox2 et ainsi de suite voici un
exemple
Changez le N° des combo pour chaque combo

Private Sub ComboBox2_Change()
ComboBox3.Clear
For k = 0 To ComboBox2.ListCount - 1
If ComboBox2.List(k) <> ComboBox2.Text Then _
ComboBox3.AddItem ComboBox2.List(k)
Next
End Sub

Si besoin de selections multiples il faut des listes au lieu de combobox
et une autre macro
Youky

"Jed"
Bonjour à tous,

J'ai une application excel 2000 avec 7 combo box.
J'ai alimenté tous les combo avec : rowsource = A52:A59

J'aimerai quand je selectionne dans combobox1 une valeur, que cette valeur
soit retirer des autres combo. !!

Exemples :
Liste valeur dans A52:A59

Soude <48%
Acide sulfurique <100%
Ammoniaque <28%
Hydrazine <24%
Acide nitrique <100%
Acide chlorhydrique <35%
Chlorure ferrique <41 %
Eau de javel

Si dans combobox1, je selectionne "Soude <48%"
dans les autres combobox "Soude" doit etre retirer pour ne plus laisser ce
choix.

La selection peut être n'import où dans la liste.

QQ peut -il me conseiller sur ce coup là ??

Merci a tous



Jed
Le #15306231
YOUKY vous êtes genial !!! euh les autres aussi mais ...;

C'est exactement ce que je voulais faire et ça fonctionne du tonnere.

Merci bcp pour cette solution. Je galère depuis un moment avec mes miliers
de lignes de codes.

Merci

"Youky" a écrit :

Bonjour,
Laisser la rowsource au combobox1 seulement

Private Sub ComboBox1_Click()
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
ComboBox5.Clear
ComboBox6.Clear
For k = 0 To ComboBox1.ListCount - 1
If ComboBox1.List(k) <> ComboBox1.Text Then _
ComboBox2.AddItem ComboBox1.List(k)
Combobox3.Additem ComboBox1.List(k)
Combobox4.Additem ComboBox1.List(k)
Combobox5.Additem ComboBox1.List(k)
Combobox6.Additem ComboBox1.List(k)
Next
End Sub

Si besoin aussi de répéter sur le combobox2 et ainsi de suite voici un
exemple
Changez le N° des combo pour chaque combo

Private Sub ComboBox2_Change()
ComboBox3.Clear
For k = 0 To ComboBox2.ListCount - 1
If ComboBox2.List(k) <> ComboBox2.Text Then _
ComboBox3.AddItem ComboBox2.List(k)
Next
End Sub

Si besoin de selections multiples il faut des listes au lieu de combobox
et une autre macro
Youky

"Jed"
> Bonjour à tous,
>
> J'ai une application excel 2000 avec 7 combo box.
> J'ai alimenté tous les combo avec : rowsource = A52:A59
>
> J'aimerai quand je selectionne dans combobox1 une valeur, que cette valeur
> soit retirer des autres combo. !!
>
> Exemples :
> Liste valeur dans A52:A59
>
> Soude <48%
> Acide sulfurique <100%
> Ammoniaque <28%
> Hydrazine <24%
> Acide nitrique <100%
> Acide chlorhydrique <35%
> Chlorure ferrique <41 %
> Eau de javel
>
> Si dans combobox1, je selectionne "Soude <48%"
> dans les autres combobox "Soude" doit etre retirer pour ne plus laisser ce
> choix.
>
> La selection peut être n'import où dans la liste.
>
> QQ peut -il me conseiller sur ce coup là ??
>
> Merci a tous
>





Publicité
Poster une réponse
Anonyme