remplacer le contenu d'un combobox suivant la selection d'un autre combobox ?

[AVORIAZ]

salut

j'ai un petit souci de selction de combobox

voila
j'ai un combobox 1 ou je selectionne des donnees :

combobox 1

a1
A2
A3
A4

dans ma combobox 2 les donnees je voudrais modifier le contenu suivant la selection de la 1

exemple si je clique sur a1, ma combobox 2 dopis afficher la liste de choix
vert
rouge
noir

si je selectionne A2 de choix combobox 2 sera alors :

orange
violet
rouge

si je selectionne A3
MARRON
ROSE
JAUNE

MON probleme c'est que la combobox deux s'initialise pas entre les choix
' chargement de combobox 1
combobox1.additem ("A1")
combobox1.additem ("A2")
combobox1.additem ("A3")
combobox1.additem ("A4")

'chargement des valeur de selection suivant le choix de combobox 1


IF COMBOBOX1 = 0 THEN COMBOBOX3.additem("vert") and COMBOBOX3.additem("rouge") and COMBOBOX3.additem("noir")

IF COMBOBOX1 = 1 THEN COMBOBOX3.additem("ORANGE") and COMBOBOX3.additem("VIOLET") and COMBOBOX3.additem("ROUGE")

IF COMBOBOX1 = 2 THEN COMBOBOX3.additem("MARRON") and COMBOBOX3.additem("ROSE") and COMBOBOX3.additem("JAUNE")

merci pour votre aide

avo

 

[Arnaud]

salut,

dans ton condition, écris plutot un truc du style :

If ComboBox1.ListIndex= 0 Then

 

[AVORIAZ]

ok ca marche mais la combobox 3 dois s'initialiser entre les selections, la elle ajoute les choix a chaque que fois que je valide dans la combo 1
Faudrais qu'elle se vide entre les choix !!!

ta une idée ?

merci pour ton aide

avo

 

[GC]

Bonjour AVORIAZ

 

[GC]

Désolée, une mauvaise manip...

En fait je voulais t'envoyer un fichier que j'ai fait il y a quelques temps mais comme il dépasse les 50k je ne peux pas.
GC

 

[Arnaud]

re,

ComboBox3.Clear
Select Case ComboBox1.ListIndex
Case 0
ComboBox3.AddItem ("vert")
ComboBox3.AddItem ("rouge")
ComboBox3.AddItem ("noir")
Case 1
ComboBox3.AddItem ("orange")
ComboBox3.AddItem ("violet")
ComboBox3.AddItem ("rouge")
Case 2
ComboBox3.AddItem ("marron")
ComboBox3.AddItem ("rose")
ComboBox3.AddItem ("jaune")
End Select

 

[Patrick]

Bonjour ,


Je me demandais si vous pouviez m'aider ?

Voici mon souci.

Je suis en train de réaliser une macro composée d'une UserForm qui me permet de saisir des données de type texte, qui seront ensuite enregistré sur feuille excel.

Dans cette UserForm on y trouve des TextBox, ListeBox, ComboBox, Bouton et OptionBouton.

J'ai réussi à faire fonctionner le tout.

Le problème c'est que je ne sais pas comment faire pour recharger une ligne dans la UserForm pour faire une modification. Puis ensuite enregistrer cette modif sur la même ligne.

Exemple: TextBox1 (couper le boulon) OptionBouton (à faire) saisie le 06.07.2004

Rechargement des données puis modif dans UserForm

TextBox1 (le boulon est coupé) OptionBouton (fait) saisie le 07.07.2004 puis enregristrer.

Voilà j'espère être assez clair dans mon explication en espérant en réponse.

Cordialement P.MASONI

 

[AVORIAZ]

heu , ca marche mais au premier tour seulement,c'est a dire sur l'userform si je selectionne le 1 j'ai bien la liste de choix qui correspond mais si je selectionne la case deux la combobox 2 ne s'initialise pas pour mettre la nouvelle liste de choix !!!!



Private Sub ComboBox3_Change()

ComboBox3.Clear
Select Case ComboBox1.ListIndex

Case 0
ComboBox3.AddItem ("vert")
ComboBox3.AddItem ("rouge")
ComboBox3.AddItem ("noir")


Case 1
ComboBox3.AddItem ("orange")
ComboBox3.AddItem ("violet")
ComboBox3.AddItem ("rouge")


Case 2
ComboBox3.AddItem ("marron")
ComboBox3.AddItem ("rose")
ComboBox3.AddItem ("jaune")


End Select

End Sub

 

[GC]

Bonjour Avoriaz

J'ai un fichier qui marche mais comme il fait 145k même zippé, puis-je te l'envoyer directement ?

GC

 

[Arnaud]

re,

tu ne pourrai pas joindre ton fichier Avoriaz, cela serai le plus simple.

dans ton dernir message tu parle d'un ComboBox2. mais je le vois nul part dans ton code donc comment le code que je te propose peut intrevenir dessus ??