Detecter l'appui sur la touche del

[Airone784]

Bonjour,

Je souhaite, lorsque je suis sur la feuille 1 uniquement de mon classeur, que lorsque j'appuie sur la touche delete de mon clavier, un msgbox soit renvoyé. En somme, je veux lorsque l'utilisateur efface des données sur la feuille 1 qu'un message lui rappel qu'il doit aussi les effacer sur la feuille client

J'ai tenté l'utilisation du code application.onkey dans le code de ma feuille mais pas d'effet constaté.

Mon code situé dans la feuille1:

Sub changer_del()
Application.OnKey Key:="{DEL}", procedure:="message"
End Sub

Sub message()
MsgBox "Pensez aussi à supprimer les clients dans la feuille client!"
End Sub

Je tourne en rond à mon grand désespoir. Si vous aviez une solution ce serait top.

Merci d'avance.

 

[tototiti2008]

Re : Detecter l'appui sur la touche del

Bonjour Airone,

Il faut déplacer ton code dans un module standard et exécuter la procédure changer_del, ou alors laisser dans la feuille1 et essayer comme ça

Sub changer_del()
Application.OnKey Key:="{DEL}", procedure:="Feuil1.message"
End Sub

Sub message()
MsgBox "Pensez aussi à supprimer les clients dans la feuille client!"
End Sub

 

[Airone784]

Re : Detecter l'appui sur la touche del

Merci tototiti,

Par contre comment je peux faire pour que, le fait d'appuyer sur la touche delete, les cellules concernées soient bien effacées en plus du message???

 

[Pierrot93]

Re : Detecter l'appui sur la touche del

Bonjour Airone, Toto🙂

rajoute peut être ceci dans ta procédure "message" :

Selection.ClearContents

bon après midi
@+

 

[tototiti2008]

Re : Detecter l'appui sur la touche del

Re,

ajoute Selection.CleaContents après ton message
Je précise tout de même que l'utilisation de OnKey est dangereuse
Il faut penser à revenir à la configuration normale à la sortie du classeur, sans quoi tu risque d'avoir des soucis

Edit : bing, Bonjour Pierrot 😉 Delete ou Clearcontents ???

 

[Pierrot93]

Re : Detecter l'appui sur la touche del

Re,

Edit : bing, Bonjour Pierrot Delete ou Clearcontents ???

plutôt "Clearcontents", j'avais modifié entre temps...

 

[Airone784]

Re : Detecter l'appui sur la touche del

exact toto, c'est pour ça que dans l’évènement deactivate de la feuille, j'ai bien ajouté application.onkey key:="{DEL}" pour revenir à la configuration normale.
Pour ma culture perso, il existe une autre méthode pour détecter l'utilisation d'une touche de clavier???

Merci en tout cas.

 

[Pierrot93]

Re : Detecter l'appui sur la touche del

Re,

Pour ma culture perso, il existe une autre méthode pour détecter l'utilisation d'une touche de clavier???

oui, les APIs... plus ardus à coder...

 

[Airone784]

Re : Detecter l'appui sur la touche del

Ouai, alors là ça ne me parle pas du tout ça les API...

 

[tototiti2008]

Re : Detecter l'appui sur la touche del

Re,

J'ajouterais que si c'est plus ardu à coder, il arrive également que ce soit moins stable (souvenir d'une API qui détectait les mouvements de la souris sur la feuille de calcul qui avait fait planter mon Excel...).
Donc peu de plus-value si la fonctionnalité existe nativement dans Excel comme OnKey, à mon avis.

 

[Pierrot93]

Re : Detecter l'appui sur la touche del

Re,

Donc peu de plus-value si la fonctionnalité existe nativement dans Excel comme OnKey, à mon avis.

tout à fait d'accord avec toi Toto🙂...

 

[tototiti2008]

Re : Detecter l'appui sur la touche del

Re,

Mais moi aussi, tout à fait d'accord avec toi Pierrot, comme très souvent 😉
Et puis en plus, je dois avouer que je ne connais pas d'API qui interceptent l'utilisation des touches 😀

Edit : Ce n'était une mise en doute de son existence, juste pour avouer mon ignorance...

 

[Pierrot93]

Re : Detecter l'appui sur la touche del

Re,

Et puis en plus, je dois avouer que je ne connais pas d'API qui interceptent l'utilisation des touches

Pas du tout un spécialiste des APIs, mais me semble bien avoir vu cela quelque part... Mais sais plus trop où...

 

[Pierrot93]

Re : Detecter l'appui sur la touche del

Re,

regarde ce lien :
Dtail de l'API - Visual Basic Research Center
je te laisse adapter...

 

[Airone784]

Re : Detecter l'appui sur la touche del

merci beaucoup.

Au plaisir