XL 2010 Combo Box conditionnel ?

Mettallives81 · 20 Décembre 2016

Bonjour,

Je suis tout nouveau sur le forum et débutant dans la programmation sur Excel.

J'essaie de réaliser un questionnaire sur Excel 2010 et je bloque sur point qui nécessite à mon humble avis du code que je ne saurais générer.

Je souhaiterai à partir d'un ComboBox1 (OUI / NON) , afficher dans un autre ComboBox2, deux listes de choix différentes.

Après plusieurs essais je ne sais pas comment m'y prendre .

Sur le document ci-joint, je souhaiterai que :

1 - le ComboBox1 à "OUI", "déclenche dans le ComboBox2 la liste de choix suivante =Liste_deroulante!$D$9:$D$10

2 - le Combobox1 à "NON", déclenche dans le ComboBox2 la liste de choix suivante
=Liste_deroulante!$D$13:$D$14

Merci beaucoup pour votre aide précieuse.

Bien cordialement,

olivier

Paf · 20 Décembre 2016

Bonjour,

A essayer :

VB:

Private Sub ComboBox1_Change()
If ComboBox1 = "OUI" Then ComboBox2.ListFillRange = "Liste_deroulante!$D$9:$D$10"
If ComboBox1 = "NON" Then ComboBox2.ListFillRange = "Liste_deroulante!$D$13:$D$14"
End Sub

A+

Mettallives81 · 21 Décembre 2016

Merci beaucoup pour votre réponse rapide !!

Cela fonctionne à merveille je vais pouvoir continuer la création de mon questionnaire

Bonne journée et merci encore.

Mettallives81 · 13 Janvier 2017

J'ai beaucoup avancé dans mon questionnaire grâce à vous

Voilà la dernière version en date. Toujours par rapport aux comboBox, il y a un comportement que j'aimerai bien avoir si cela est possible, que lorsque l'on choisi le "OUI" dans le comboBox 1, si un choix à déjà fait dans le ComboBox2, il disparaît immédiatement pour laisser la place à un nouveau choix.

Car en effet en faisant des tests avec des personnes "vierges" d'expérience sur le questionnaire, elles avaient quelques fois oubliés de choisir une réponse dans le comboBox2, car la précédente était encore sélectionnée...

Mettallives81 · 13 Janvier 2017

J'ai trouvé!! Enfin cela fonctionne

Il suffit de rajouter:

Private Sub comboBox1_Change()
ComboBox2.Value = ""
If ComboBox1 = "OUI" Then ComboBox2.ListFillRange = "Choix!$D$9:$D$12"
If ComboBox1 = "NON" Then ComboBox2.ListFillRange = "Choix!$D$13:$D$16"
End Sub

XL 2010 Combo Box conditionnel ?

Mettallives81

XLDnaute Nouveau

Pièces jointes

Paf

XLDnaute Barbatruc

Mettallives81

XLDnaute Nouveau

Mettallives81

XLDnaute Nouveau

Pièces jointes

Mettallives81

XLDnaute Nouveau

Discussions similaires