XL 2010 Combo Box conditionnel ?

[Mettallives81]

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]

Bonjour,

A essayer :

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]

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]

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]

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