Discussion :

[jojo86]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Duddy]

Bonjour le Forum,

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.

[LeForestier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[jojo86]

Exact ça marche nickel !!!

Merci beaucoup.