Combobox visible ou non et Setfocus

[FJPT]

Bonsoir à toutes et à tous

J'ai 2 combobox successives où le curseur passe bien de l'une à l'autre par un seul appui sur TAB ou ENTER tant qu'elle sont visibles toutes les deux.

Si je cache la deuxiéme (Visible = False) afin de ne la rendre visible par l'événement Exit de la première qu'après mise à jour de celle-ci il faut que je tape 2 fois TAB ou ENTER pour passer le curseur sur la deuxème malgré le Setfocus sur cette dernière.

Si quelqu'un a l'explication, je lui en serai reconnaissant car je bloque là-dessus depuis un moment.

Bonne soirée à toutes et à tous.

FJPT

 

[Guest]

Re : Combobox visible ou non et Setfocus

Bonsoir FjPT,

Essaie quelque chose comme ceci:
Rendre visible la combobox2 sur évènement AfterUpDate qui se produit avant Exit.

en rouge la condition à remplacer

Private Sub ComboBox1_AfterUpdate()
   [COLOR=red] If ComboBox1.ListCount > 0 Then
[/COLOR]        ComboBox2.Visible = True
    End If
End Sub

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If ComboBox2.Visible Then ComboBox2.SetFocus
End Sub

A+

 

[FJPT]

Re : Combobox visible ou non et Setfocus

Bonjour Hasco

Je te remercie pour ta réponse dont je vais tester le code aussitôt.

Bonne journée

FJPT