Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion AVORIAZ
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

A

AVORIAZ

Guest
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
 
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
 
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
 
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
 
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
 
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 ??
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
Réponses
2
Affichages
821
S
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…