[AC-97] Code VB pour ouvrir liste déroulante [Résolu]

[Dewey12]

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...

[loufab]

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,

[Dewey12]

Tout d'abord merci pour t'as réponse !
Mais la technique de dropdown ne fonctionne pas
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?

[loufab]

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}"

[Dewey12]

Magnifique !

Ça marche super !

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