XL 2010 Fermer userform avec touche Echap

[Shakki]

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.

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 27 Then Unload Me 'touche ESC
End Sub

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]

Bonjour,
Essayez d'ajouter ce code à votre UserForm

Private Sub ListView1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyEscape Then Unload Me
End Sub

 

[Dranreb]

Bonsoir.
Si un bouton de commande peut aussi être utilisé, mettre sa propriété Cancel à True pour le faire activer par la touche Echap.

 

[Shakki]

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.

Merci à vous deux d'être intervenu.

A+

 

[mapomme]

Bonjour Shakki, PM02 , Dranreb ,

Dranreb a fourni la solution. Voir illustration dans le fichier joint.

• élargir le userform
• dans la partie droite de l'userform, placer un CommandButton
• mettre la propriété CANCEL de ce CommandButton à TRUE
• associer la procédure évènementielle au code du CommandButton
  

  Private Sub CommandButton1_Click()
     Unload Me
  End Sub

• rétrécir le userform à sa largeur initiale (pour masquer le CommandButton)

 

[Shakki]

Bonjour,

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.

Merci quand même.

A+