Discussion :

[thomcat]

Bonjour,

je souhaiterai permettre à l'utilisateur de fermer les boites de dialogues à l'aide de raccourcis clavier plutôt qu'à la souris. Un sujet similaire à été posté, mais je n'arrive pas à faire fonctionner la solution proposée. Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
 
If (KeyCode = vbKeyEscape) Then
    MsgBox ("Fermeture du formulaire")
    Call fermer
End If
 
End Sub
 
Public Sub fermer()
    unload Me
End Sub

Ce code est placé dans la partie code d'un UserForm. Une fois l'userform affiché, il ne se ferme pas lorsque l'on appuie sur la touche échappe. La message box n'apparaît pas non plus. Avez-vous une idée ?

[ucfoutu]

Pense à mettre à True la propriété KeyPreview de ta UserForm.

[thomcat]

Bonjour ucfoutu,

j'ai regardé, il n'existe pas de propriété KeyPreview dans mon userform (je travaille sous Excel/VBA). Et même en imposant KeyPreview =True ça ne fonctionne toujours pas. D'ailleurs, l'aide d'Excel indique mot clé introuvable sur Keypreview. (Office 2003)

[ucfoutu]

pas de keypreview ?
Ah ce coquin de VBA ...

Puisque c'est ainsi, on va se montrer encore plus coquin que lui (cà lui servira de leçon... ) :

ajoute sur ton userform un bouton de commande et donne-lui le nom monkiki ... et ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Initialize()
   With monkiki
     .Cancel = True
     .Move Me.Width, Me.Height, 1, 1
   End With
End Sub
 
Private Sub monkiki_Click()
 msgbox "allez ! on ferme boutique..."
 Unload Me
End Sub

presse la touche escape ...
tu dis ...

[thomcat]

Est-ce que celà marche si j'ai plusieurs objets dans mon user form ou ça marche parce que le boutton "monkiki" est actif ? En ce qui me concerne j'ai beaucoup d'objets sur ma feuille, et l'utilisateur peut se déplacer entre les bouttons avec des tabulations.

[ucfoutu]

Hé !

Essaye donc, hein ===>> et tu le sauras très vite !!!

EDIT : et si tu ne veux pas que la tabulation y parvienne, à ce bouton .... t'as pas une petite idée, non ? (Tapstop à false, chépamoa ...)....

[ilcocodrillo]

Bravo ucfoutu pour ce tour de passe passe ! SI tu veux bien prendre quelques minutes pour m'expliquer ce Me je suis preneur car avec l'aide VBA et l'espion du débogeur je ne comprends pas ce que c'est que ce Me...

Meuuuh....

[thomcat]

Salut ucfoutu, effectivement ça marche : merci bien.

Mais (car il y a un "mais") la touche échappe était un exemple, et si je souhaitais que ce soit la touche "B" par exemple ? En fait je souhaiterai que l'utilisateur puisse utiliser d'autres touches pour effectuer d'autres actions.

Dans l'idéal j'aimerai pouvoir définir quelles touches ont un effet sur ... la fermeture par exemple.

En fait, ça ne résoud pas vraiment mon problème, ça le contourne. J'aimerai comprendre pourquoi ma procédure de détection de la touche "échappe" ne fonctionne pas sur mon userform alors qu'elle fonctionne sur un userform vide.

[ucfoutu]

Parceque, lorsqu'elle est vide, ta UserForm a le focus, pardi !

Tu aurais dû poser la question directement au lieu de parler de la touche Escape, puis de venir nous dire qu'en fait tu voudrais pouvoir le faire avec d'autres touches ...()

Moi, je vais voir la mer ...

[ucfoutu]

Bon...
de retour...

J'ai peut être un truc à te proposer (ce sera encore un truc, car Onkey, si ma mémoire est bonne, fonctionne depuis la feuille Excel mais pas depuis une UserForm ...)

Mais cette fois-ci, tu vas tout nous dire, hein ...

Questions, donc :
- combien d'actions différentes dois-tu lancer à l'aide du clavier
- quelles touches as-tu prévu d'utiliser ?


Je peux te proposer, éventuellement, un truc, mais avec une seule touche (telle la touche Escape) non alphanumérique. Toutes les autres devront être des lettres.

A toi de répondre et n'oublie cette fois-ci rien, s'il te plait !

[ucfoutu]

Bon (pas là ...) :
On m'attend pour dîner .

Vois ce que fais ceci :

Une UserForm, sur laquelle tu mets 3 boutons de commande appelés matoucheescape, malettrez et malettreb

Ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Form_Initialize()
   With matoucheescape
     .Cancel = True
     .Move Me.Width, Me.Height, 1, 1
   End With
   malettrez.Caption = "&z"
   malettreb.Caption = "&b"
   malettrez.Move Me.Width, Me.Height, 1, 1
   malettreb.Move Me.Width, Me.Height, 1, 1
End Sub
 
Private Sub matoucheescape_Click()
 MsgBox "t'as frappé Escape ===>> on ferme boutique"
 Unload Me
End Sub
 
Private Sub malettrez_Click()
  MsgBox "tu viens de frappez ALT+Z"
  ' ton action ici
End Sub
 
Private Sub malettreb_Click()
  MsgBox "tu viens de frappez ALT+B"
  ' ton action ici
End Sub

Lance et vois ce que fais :
- la touche escape
- la touche ALT + B
- la touche ALT + Z

L'emploi de la touche ALT en plus de la lettre B ou de la lettre Z est malheureusement inévitable..
Bon appétit.

[zazaraignée]

Complément d'information... Toutes les fenêtres de Windows (peu importe l'application) sont fermables avec la combinaisons de touches Alt-F4. À moins que le programmeur ait prévu de bloquer ce raccourci standard.

Pour fermer les fenêtres de documents sans fermer l'application mère (application MDI), le raccourci standard est Ctrl-F4.

Donc, en principe, tu devrait pouvoir fermer un UserForm avec Alt-F4.

Pour autre chose, il existe plusieurs options, et je crois que la plupart ont étés mentionnées.

[thomcat]

Salut ucfoutu,

merci pour ton aide, ça me convient ! Je garde cette astuce pour quitter l'userform. Et pour les lettres de raccourci, en fait, l'astuce que tu me propose est équivalente à utiliser la propriété "Accelerator" d'un objet !

En tout cas merci bien pour ton coup de main, "pour un monde meilleur".

zazaraignée, l'objectif est d'utiliser la touche connue de la plupart des utilisateurs pour fermer une fenêtre, c'est dire échappe. C'est pourquoi j'évite l'usage du Alt F4, en plus ça donne des crampes aux doigts !

[zazaraignée]

Alors, il faut mettre la propriété Cancel du bouton Fermer à True. Si, bien sur, les autres commandes ont bien été faites avant de fermer...

[thomcat]

Merci à tous les participants de cette discussion pour leurs apports respectifs.

[XCUDA]

2023 et toujours le même problème: le code suivant ne fonctionne pas pour fermer avec la touche esc un userform :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, _
    ByVal Shift As Integer)
        If KeyCode = vbKeyEscape Then
            Unload Me
        End If
End Sub

Pour une solution simple qui marche pas besoin du code précèdent ni d'autres codes plus complexes , j'avais déjà un bouton "fermer" au quel j'ai édité la propriété "Cancel" sur true :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
'Bouton Fermer avec la propriété Cancel = True 
Private Sub CommandButton_fermer_Click()
 
    Unload Me
 
End Sub

quand on appuie sur esc maintenant ça ferme le formulaire.

Je précise que je suis sur Excel de office 365