XL 2010 Fermer userform avec touche Echap

Shakki

XLDnaute Occasionnel
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.
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
 

Pièces jointes

  • DOSSIERS- Forum.xls
    49 KB · Affichages: 50

Shakki

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Supporter XLD
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
    VB:
    Private Sub CommandButton1_Click()
       Unload Me
    End Sub
  • rétrécir le userform à sa largeur initiale (pour masquer le CommandButton)
 

Pièces jointes

  • Shakki- ESC fermer Userform- v1.xlsm
    17.1 KB · Affichages: 60
Dernière édition:

Shakki

XLDnaute Occasionnel
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+
 

Discussions similaires

Statistiques des forums

Discussions
312 924
Messages
2 093 669
Membres
105 781
dernier inscrit
Dominique G.