touche ECHAP

Bonjour,

Peut-être pourrais-tu mettre une boite de dialogue non modale pendant
l'exécution de la macro avec un bouton "Annuler". Tu mets une variable qui
change d'état quand on clique sur ce bouton, et dans la macro tu contrôles
que la variable a toujours le même état avant de continuer (une boucle par
exemple).

Si c'est pas clair, fais-moi signe.

--
Patrick

"FORUM excel" <amydale-PLEASEPASDESPAM@club-internet.fr> wrote in message
news:Ow%23tE519EHA.3504@TK2MSFTNGP12.phx.gbl...

Bonsoir à tous.
Je souhaiterais pouvoir faire une action lorsque l'utilisateur lance une
macro (relativement longue) et qu'il veut l'arreter grace a la touche
ECHAP.
J'ai bien trouvé qu'il y avait un code erreur lui correspondant, mais
meme quand je met un on error et que je gere cette erreur, je tombe sur la
fenetre de debugage....
Quelqu'un aurait-il une idée ?

Merci
Sébastien

Essaye ça :

Sub laMacro()
Application.OnKey "{esc}", "zz_esc"
'blabla ta macro
'....
End Sub

Sub zz_Esc()
MsgBox "Désolé...touche Echap désactivée !"
Application.OnKey "{esc}"
End
End Sub

AV

Seulement ca ?
Pfff... comme quoi, des fois on se casse vraiment la tete pour pas grand
chose.
Je vais essayer ca des demain !! merci a vous deux.
Je n'aime pas trop la solution feuille non modale car si je me souviens
bien,
sous excel 97, il n'y a pas de feuilles non modale... ca serait a verifier.

Merci quand meme.
Sébastien

"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
OqWdey69EHA.1300@TK2MSFTNGP14.phx.gbl...

Essaye ça :

Sub laMacro()
Application.OnKey "{esc}", "zz_esc"
'blabla ta macro
'....
End Sub

Sub zz_Esc()
MsgBox "Désolé...touche Echap désactivée !"
Application.OnKey "{esc}"
End
End Sub

AV