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 PMO2, je n'avais pas pensé à la listview... ça marche.
Dranreb, merci pour ta proposition mais je ne veux pas de bouton de commande. Il s'agit d'un simple outil de recherche. Ca évoluera peut-être autrement mais pour l'instant, il s'agit juste de lister les résultats.
J'avais songé à cacher un bouton de commande comme tu le préconises mais il me semblait qu'il devait exister une solution en passant directement par le userform.
Ce n'est pas ce que propose PMO2, puisqu'il passe par la listview, mais ça me convient aussi.