Code VB pour ouvrir liste déroulante

Bonjour,

J'ai une question toute bête, mais peut être pas réalisable ?!
L'utilisateur vas devoir remplir un formulaire puis valider sa saisie à la fin, jusque la rien de difficile !
Je souhaite que dans le cas ou l'utilisateur a oublié de remplir un champ (liste déroulante), cette liste déroulante s'ouvre automatiquement !

J'ai donc fais une boucle conditionnelle, et je ne sais pas quoi mettre comme code VB, dans le cas ou "modifiable99" (liste déroulante) n'est pas remplie

info: j'ai essayé : modifiable99.setfocus 'mais cela n'ouvre pas la liste...

Bonjour,

boucler sur les controles
puis dérouler les combo

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub VerifieCombo() Dim ctrl As Control For Each ctrl In Me.Controls If TypeOf ctrl Is ComboBox Then If IsNull(ctrl) Then ctrl.Dropdown Exit Sub End If End If Next End Sub

---

Cordialement,

Tout d'abord merci pour t'as réponse !
Mais la technique de dropdown ne fonctionne pas :cry:
Pour la boucle ca marche, mais pas afficher la liste déroulante ....

Code:

---

1 2 3 4 5 6 7 8 9 10

If Texte28 = "" Then Texte28.SetFocus Else If Modifiable95 = "" Then 'Modifiable95.dropdown Else Texte61.SetFocus End If End If

---

Il faudrais simuler le clic sur la petite fleche qui permet de déroulé la liste !
Une autre idée?

Oups ! version antédiluvienne.


Alt flèche bas pour dérouler une liste au clavier.

donc à la place de dropdown il faut :

Code:

---

1 2	ctrl.setfocus Sendkeys "%{down}"

---

Magnifique ! :ccool:

Ça marche super !

Merci beaucoup et bonne fin de journée à toi ! :mrgreen:

Merci le forum,
j'avais un problème de DROPDOWN qui ne marchais pas dans certains cas (alors qu'il marchait sur le même contrôle dans d'autres cas):aie:
et

Code:

---

Sendkeys "%{down}"

---

a résolu le problème

PS: comme quoi les discussions peuvent être multirésolue