Gestion erreur si Echap pendant macro

[m@tix]

Bonjour,

Lors de l'exécution d'une macro, si l'utilisateur fait Echap (plusieurs fois en fait parfois 🙄), la macro s'arrête avec un message d'erreur. Est-il possible de gérer cela, par exemple, si l'utilsateur fait Echap, de ne pas tomber sur le message d'erreur d'Excel, mais par exemple de revenir sur le classeur, ou même de le quitter ?

Merci d'avance. 😉

 

[kjin]

Re : Gestion erreur si Echap pendant macro

Bonjour,

Sub lamacro()
On Error GoTo fin
Application.EnableCancelKey = xlErrorHandler
For i = 1 To 10 ^ 10
    [A1] = i
Next

fin:
If Err = 18 Then Exit Sub

End Sub

A+
kjin

 

[m@tix]

Re : Gestion erreur si Echap pendant macro

Bonjour kjin,

Merci pour ta réponse, mais peux-tu me dire comment ce code fonctionne ? Pourquoi cette énorme boucle ?
Et surtout, où le placer dans le code de ma macro ?

 

[kjin]

Re : Gestion erreur si Echap pendant macro

Bonjour,
C'est un exemple !
Ici on boucle jusqu'à 10^10 pour que tu aies le temps d'appuyer sur la touche ECHAP et que tu constates qu'on quitte effectivement la procédure !

Sub tamacro()
On Error GoTo fin
Application.EnableCancelKey = xlErrorHandler
'la procedure que tu dois executer

fin:
If Err = 18 Then Exit Sub

End Sub

A+
kjin

 

[m@tix]

Re : Gestion erreur si Echap pendant macro

Je viens de tester, en appuyant sur Echap pendant que la macro tourne, apparaît toujours le message:

Erreur d'exécution '18': interruption par l'utilisateur.

Et j'ai pourtant placé le code comme tu me l'as indiqué..

 

[m@tix]

Re : Gestion erreur si Echap pendant macro

Je viens de tester sur un code simpliste sous Excel 2010, ça fonctionne très bien.
Sur mon code, toujours pas... Curieux !😕