XL 2010 Fermer userform avec touche Echap

  • Initiateur de la discussion Initiateur de la discussion Shakki
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

Dernière édition:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
41
Affichages
698
Retour