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

J

Jare

Guest
Bonjours à tous et bon wk,

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

A BIENTOT.
 
T

Thierry

Guest
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
 
T

Thierry

Guest
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
 
@

@+Thierry

Guest
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
 

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 942
Membres
101 849
dernier inscrit
florentMIG