Action lors de l'appui sur la touche suppr

Résolu/Fermé
GDX Messages postés 219 Date d'inscription lundi 27 avril 2009 Statut Membre Dernière intervention 16 janvier 2020 - 7 nov. 2018 à 20:14
GDX Messages postés 219 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

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
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
GDX Messages postés 219 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