Ouvrir une combobox au survol du curseur

[apdf1]

Bonjour

Voila j'aimerais ouvrir une combobox au survol du curseur mais je ne connais pas le code

j'ai trouver ceci:

 Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.ComboBox1.DropDown

Mais quand je click sur un nom il ne réagie pas il faut le faire une deuxiéme fois et j'aimerais que la liste se refermer automatiquement dès que la souris n'est plus sur le combobox.

Merci d'avance

Cordialement

Max

 

[laetitia90]

Re : Ouvrir une combobox au survol du curseur

bonjour apdf1
si tu parles d'user perso.. je l'ecris comme cela

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.SetFocus: ComboBox1.DropDown
End Sub

met le focus sur un autre controle

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.SetFocus
End Sub

 

[Pierrot93]

Re : Ouvrir une combobox au survol du curseur

Bonjour Max, Laetitia

peut être une autre approchie comme ceci... A voir...

Option Explicit
Dim b As Boolean
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With ComboBox1
    .DropDown
    .SetFocus
End With
b = True
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If b Then Application.SendKeys "~":  b = False
End Sub

bonne journée
@+

 

[apdf1]

Re : Ouvrir une combobox au survol du curseur

Bonjour, Laetitia, Pierrot,

je vous remercie infiniment et vous souhaite une bonne journée

Max