Comment liée une macro à la touche "Echap"?

[Jare]

Bonjours à tous et bon wk,

Oui encore Jare !
Comment affecter une macro a cette fameuse touche du clavier "Echap"?.

A BIENTOT.

 

[Thierry]

Hello Jare,

Encore moi !

Pourquoi veux-tu affecter une macro juste particulièrement à cette touche ?

Escape et la seule touche qui peut te permettre d'interrompre une macro qui boucle à l'infini ou simplement si tu veux l'arrêter avant la fin de son exécution...

Je ne conseille pas de faire çà... Tu as touches les autres touche du clavier pour faire çà !

Si par contre tu veux neutraliser l'utilisation de cette touche pour des petits malins qui voudraient interrompre ta procédure...

ATTENTION 111)
A ne faire que sur une appli testée et re-testée en long en large et en travers !!!

Utilise l'instruction "OnKey", pour Escape çà donne çà
OnKey "{ESC}", ""

ATTENTION 222)
ne pas oublier le rétablissement de cette touche à la sortie :
OnKey "{ESC}"

Bon Long Week End
@+Thierry

 

[Jare]

A Thierry,

Le pourquoi est: pour les petits malins qui .....

Merci A+

 

[Thierry]

ok Jare... Si c'est pour les petits malins.......(lol)

Alors tu fais comme çà dans ThisWorkbook
Private Sub Workbook_Open()
Application.OnKey "{ESC}", "MacroMsg"
End Sub

Dans un module standard
Sub MacroMsg()
MsgBox "Alors Petit Malin"
End Sub

Pour être propre un rétablissement dans ThisWorkbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{ESC}"
End Sub

Bonne Saturday Night
@+Thierry

 

[Jare]

Bonjour,

La solution qui fonctionne est:
"Application.EnableCancelKey = xlDisabled" donner par Ti

A+

Jare

 

[@+Thierry]

Salut Jare

Oui tout à faite d'accord pour annuller l'action de la touche Escape.

Mais dans ce post tu voulais lancer une macro quand on appuie sur Escape.
ce qui est tout a fait différent !

ET dans ce cas il faut faire comme çà !


@+Thierry