Discussion :

[ThamAL]

Bonjour à tous,

J'ai un souci avec une combobox et malgré pas mal de reherches je ne trouve pas de solution, c'est pourquoi je solicite un peu votre aide.

J'ai donc une combobox qui va piocher dans une range une liste de noms et lorsque je click sur un des noms cela lance une macro.
Jusque là pas de problème.

Je souhaiterai pouvoir plutôt que de sélectionner dans la liste déroulante, taper les premières lettres d'un nom et lorsqu'il apparait, taper sur la toucher "ENTER" et que cela déclanche la macro.

Hors ça ne marche pas..

voici le code que j'utilse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Combobox1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call BuAjGa
UserForm2.Show
 
Else
End If
 
End Sub

Et bien ça ne marche pas...
J'ai un message "Erreur de compilation - La déclaration de la procédure ne correspond pas à la description de l'évenement ou de la procédure du même nom

J'ai essayé ça égelement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub ComboBox1_AfterUpdate()
If KeyAscii = 13 Then
Call BuAjGa
UserForm2.Show
 
Else
End If
 
End Sub

Je n'ai pas de message d'erreur mais cela ne lance pas la macro...

Si vous avez une idée...

Ha oui, et égelement, est-il possible de redonner automatiquement le focus a la combobox pour que l'utilisateur puisse entrer une nouvelle valeur sans devoir clicquer dedans?


Merci de votre aide

Cordialement
Tham

[Theze]

Bonsoir,

Teste ce qui suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub UserForm_Initialize()
 
    With ComboBox1
 
        .RowSource = Range("A1:A10").Address
        .MatchEntry = 1
 
    End With
 
End Sub
 
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
    If KeyCode = 13 Then
 
        MsgBox "OK ! Je lance la macro !!!"
        MaMacro
 
    End If
 
End Sub

Hervé.

[ThamAL]

Merci Hervé ça marche juste parfaitement !