ouvrir liste combobox automatiquement

[pascal21]

bonjour à tous
j'ai dans un usf, plusieurs combobox et j'aimerais, pour gagner quelques clics, que lorsque je sélectionne une valeur dans le 1er combo, le suivant ouvre sa liste automatiquement et ainsi de suite
je sais que c'est possible je l'ai déjà fais mais je ne retrouve pas
merci de votre aide

 

[kjin]

Re : ouvrir liste combobox automatiquement

Bonjour,

Private Sub ComboBox1_Change()
ComboBox2.DropDown
End Sub

A+
kjin

 

[pascal21]

Re : ouvrir liste combobox automatiquement

Bonjour Kjin
même si ce code parait logique, ça ne fonctionne pas
j'ai essayé sur combox1_click, ça ne fonctionne pas
sur combox1_dropbuttonclick ça ouvre bien la liste du combox2 mais après j'ai une erreur et excel se ferme

 

[Guest]

Re : ouvrir liste combobox automatiquement

bonjour,

Private Sub ComboBox1_Click()
    ComboBox2.SetFocus
    SendKeys "%{down}"
End Sub

A+

Hello Kjin🙂
Hello R@chid🙂

 

[R@chid]

Re : ouvrir liste combobox automatiquement

Bonjour @ tous,
n'apporte rien au fil,
Bienvenu chez toi mon cher ami Hasco, je suis chanceux d’être le premier qui te dis ce petit mot.
@ + sur les fils

 

[job75]

Re : ouvrir liste combobox automatiquement

Bonjour Pascal, kjin, Hasco,

L'ennui de SendKeys sur Excel 2010 c'est qu'il déverrouille le pavé numérique...

Alors dans un Module standard :

Sub Ouvre()
UserForm1.ComboBox2.DropDown
End Sub

Et dans le code de l'USF :

Private Sub ComboBox1_Change()
Application.OnTime Now, "Ouvre"
End Sub

Edit : salut R@chid, note que l'on a salué il y a 5 jours le retour de l'ami Hasco :

https://www.excel-downloads.com/threads/probleme-avec-formule-somme-si-ens.202708/

A+

 

[R@chid]

Re : ouvrir liste combobox automatiquement

Bonjour @ tous,

Edit : salut R@chid, note que l'on a salué il y a 5 jours le retour de l'ami Hasco

J'ai pas remarqué..., j’étais pas disponible sur le forum.
@ + +

 

[kjin]

Re : ouvrir liste combobox automatiquement

Bonjour à tous 🙂,
Ho ho, salut à toi Hasco, ça m'ensoleille mon dimanche pourri !
Désolé Pascal, non testé car jamais utilisé et je découvre !
J'ai jeté un oeil ici pour retrouver la solution de Job (pourquoi cette solution fonctionne t-elle, mystère ?!) et l'ai juste réadaptée
Dans un module standard...

Sub DropDown_ComboBox(combo$)
UserForm1.Controls(combo).DropDown
End Sub

...et dans le usf...

Private Sub ComboBox1_Change()
Application.OnTime Now, "'DropDown_ComboBox ""ComboBox2""'"
End Sub

Private Sub ComboBox2_Change()
Application.OnTime Now, "'DropDown_ComboBox ""ComboBox3""'"
End Sub

A+
kjin

 

[job75]

Re : ouvrir liste combobox automatiquement

Bonjour kjin, le fil,

pourquoi cette solution fonctionne t-elle, mystère ?!

Il n'y a pas de mystère, il faut que la macro Change soit terminée avant que s'exécute le DropDown.

D'où l'utilisation de SendKeys ou Application.OnTime.

A+

 

[kjin]

Re : ouvrir liste combobox automatiquement

Bonsoir Job,

Il n'y a pas de mystère....

Pour moi, il demeure....

Private Sub ComboBox1_Change()
ComboBox2.DropDown
End Sub

...fonctionne parfaitement si le changement s'effectue au clavier, donc je ne vois vraiment pas la raison
A+
kjin