ComboBox déclancher DropDown pour combo suivant?

Bonjour à tous,

J'ai plusieurs combobox sur mon USF, lorsque je choisi une valeur dans une de mes listes, j'aimerais que la liste suivante se "déroule" DropDown mais rien à faire, je n'y arrive pas...

Voici ce que j'ai essayé :

Code:

---

1 2 3 4

Private Sub ComboBox1_Change() ComboBox2.DropDown End Sub

---

Ce code n'agit pas du tout... J'ai pensé qu'il fallait Donner le focus au composant suivant... de cette façon :

Code:

---

1 2 3 4 5

Private Sub ComboBox1_Change() ComboBox2.SetFocus ComboBox2.DropDown End Sub

---

Mais ce dernier code affiche un joli message d'erreur :
Erreur d'exécution '-2147417848 (80010108)' :
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.

Merci de m'en dire plus sur la marche à suivre...

Cordialement,

Jojo

Bonjour le Forum, :D

Pourquoi ne pas essayer avec l'évènement "AfterUpdate", ainsi tu aurais fini les actions sur ta combo et la suivante pourrait réaliser l'action souhaitée.

J'opère ainsi pour ajouter mes valeurs à la combo suivante, mais jamais testé avec la propriété que tu donnes.

Bonjour,
Effectivement c'est pas façile du tout, il faut être dans une procédure du combo2 pour pouvoir ouvrir le combo2, donc pas possible à partir de Combo1 mais j'ai trouvé la parade...:)

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub ComboBox1_Change() ComboBox2.SetFocus SendKeys "^(F4)" End Sub   Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 16 Then ComboBox2.DropDown End If End Sub

---

Ca fonctionne nickel.
A+

Exact ça marche nickel !!!

Merci beaucoup.