EXECUTION D'UNE MACRO EN FONCTION DE LA TOUCHE SÉLECTIONNÉE

---

Auteur : VbAbdoul

Ecrire un message privé
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

Petite macro permettant d'assigner une macro en fonction de la touche selectionnée par l'utilisateur.
Ici, la touche "Echap" ferme l'appli et la touche "INSERT" insère une feuille.

Dans une feuille du classeur
''Execution lorsque la feuille est activée
Private Sub Worksheet_Activate()
    With Application
        .OnKey "{ESC}", "Echap" 'lance la proc Echap
        .OnKey "{INSERT}", "Insert" 'lance la proc Insert
    End With
End Sub

'Pour remettre en place les fonctionnalités à la désactivation de la feuille
Private Sub Worksheet_Deactivate()
    With Application
        .OnKey "{ESC}", ""      '''renvoie a aucune macro
        .OnKey "{INSERT}", ""   '''Renvoie aucune macro
    End With
End Sub

Dans un module
Sub Echap()
''Affiche ce message lorsque l'utilisateur appuit sur la touche ESC
MsgBox "Vous avez appuyé sur la touche ESC"
ThisWorkbook.Close
End Sub

Sub Insert()
''Affiche ce message lorsque l'utilisateur appuit sur la touche INSER
MsgBox "Vous avez appuyé sur la touche INSER"
ActiveWorkbook.Sheets.Add
End Sub