Sujet Précédent Sujet Suivant

Action lors de l'appui sur la touche suppr

Résolu/Fermé
GDX Messages postés 220 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 16 janvier 2020 - 7 nov. 2018 à 20:14
GDX Messages postés 220 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 16 janvier 2020 - 8 nov. 2018 à 21:41
Bonjour,

Je souhaite exécuter la procédure Sub supprTache() lors de l'appui sur la touche "Suppr".

J'ai inséré le code suivant dans la feuille correspondante et/ou dans un module 

Sub actionPressSuppr()
Application.OnKey "{DELETE}", "supprTache"
End Sub

Mais lorsque j'appui sur la touche, rien ne se passe.

Pouvez-vous m'aider ?

Merci,

GDX

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 7884 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 20 mars 2023 725
8 nov. 2018 à 08:09
Bonjour,

Mettre ta macro supprTache dans un module.

Ensuite mettre dans ThisWorkbook cela: 

Option Explicit
Private Sub Workbook_Open()
Application.OnKey "{DELETE}", "supprTache "
End Sub


voilà c'est tout simple
1
Réponse 2 / 2
GDX Messages postés 220 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 16 janvier 2020 9
8 nov. 2018 à 21:41
Super merci beaucoup cs_Le Pivert ça fonctionne.

Pour info, comme je voulais que cette action n'ait lieu que sur une feuille de mon classeur, j'ai mis dans la feuille en question 

Private Sub Worksheet_Activate()
    Application.OnKey "{DELETE}", "supprTache"
End Sub


et dans toute les autres 

Private Sub Worksheet_Activate()
    Application.OnKey "{DELETE}"
End Sub


je ne sais pas si c'est la manière la plus élégante de faire mais ça marche.
0