Bonjour,
J'ai créé un userform tout bête avec une textbox et une listview.
j'aimerais que mon userform se ferme grace à la touche Echap, mais rien à faire, ça ne fonctionne pas.
J'ai essayé avec ces 2 codes, sans résultat.
Via la textbox pas de problème, mais si le curseur est ailleurs, comment faire ?
Merci
J'ai créé un userform tout bête avec une textbox et une listview.
j'aimerais que mon userform se ferme grace à la touche Echap, mais rien à faire, ça ne fonctionne pas.
J'ai essayé avec ces 2 codes, sans résultat.
VB:
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then Unload Me 'touche ESC
End Sub
VB:
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = vbKeyEscape Then Unload Me
End Sub
Via la textbox pas de problème, mais si le curseur est ailleurs, comment faire ?
Merci