Gestion erreur si Echap pendant macro

K

kjin

XLDnaute Barbatruc

• 26 Août 2011

• #2

Re : Gestion erreur si Echap pendant macro

Bonjour,

Code:

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

 

Vote positif 0 Vote négatif

M

m@tix

XLDnaute Occasionnel

• 26 Août 2011

• #3

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 ?

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 26 Août 2011

• #4

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 !

Code:

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

 

Vote positif 0 Vote négatif

M

m@tix

XLDnaute Occasionnel

• 26 Août 2011

• #5

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é..

 

Vote positif 0 Vote négatif

M

m@tix

XLDnaute Occasionnel

• 26 Août 2011

• #6

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 !😕

 

Vote positif 0 Vote négatif