Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
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" a écrit dans le message de news:
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. !!
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
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" <Jed@discussions.microsoft.com> a écrit dans le message de news:
499E87A7-A0FB-48E2-BF9C-719F0194BB5F@microsoft.com...
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. !!
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" a écrit dans le message de news:
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. !!
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
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" a écrit dans le message de news:
> 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 >
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" <Jed@discussions.microsoft.com> a écrit dans le message de news:
499E87A7-A0FB-48E2-BF9C-719F0194BB5F@microsoft.com...
> 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
>
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" a écrit dans le message de news:
> 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 >
