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 :
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 ?
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
Partager