Arrêter L'exécution de la Macro Excel en appuyant sur Esc ne fonctionnera pas
je lance excel 2007 sur XP.
y a-t-il un moyen d'empêcher une macro de fonctionner pendant son exécution autre que presser escape? Habituellement, si je pense que j'ai créé une boucle infinate ou quelque chose d'autre a foiré, je frappe escape et il lance une erreur, mais la macro s'arrête.
cette fois (et je l'ai déjà fait mais pas si mal), j'ai mis en place une msgbox pour un débogage rapide. Il s'avère qu'il a dû boucler environ 6000 fois, ce qui signifie que j'ai dû " OK " 6000 boîtes de messages, ce qui a pris plusieurs minutes. Je n'ai pas économisé avant de lancer (une autre erreur) donc je ne pouvais pas ouvrir le Gestionnaire des tâches à exit.
faut-il un autre moyen d'arrêter l'exécution d'une macro dans le cas où je gaffe comme ça à nouveau?
10 réponses
Utiliser CRTL+ BREAK pour suspendre l'exécution à tout moment. Vous serez mis en mode pause et appuyez sur F5 pour continuer l'exécution ou de l' F8 pour exécuter le code étape par étape dans le débogueur visuel.
bien sûr, cela ne fonctionne que lorsqu'il n'y a pas de boîte de message ouverte, donc si votre code VBA ouvre constamment des boîtes de message pour une raison quelconque, il deviendra un peu difficile d'appuyer sur les touches au bon moment.
vous peut même modifier la plupart du code en cours d'exécution.
Utiliser Debug.Print pour imprimer les messages à Fenêtre Immédiate dans l'éditeur VBA, c'est bien plus pratique que MsgBox.
Utiliser points d'arrêt ou Stop mot-clé pour arrêter automatiquement l'exécution dans les zones intéressantes.
Vous pouvez utiliser Debug.Assertarrêter l'exécution conditionnelle.
parfois, le bon jeu de touches ( Pause, Break ou arrêt défil) ne sont pas disponibles sur le clavier (la plupart du temps se produit avec les utilisateurs d'ordinateur portable) et en appuyant sur Esc 2, 3 ou plusieurs fois n'arrête pas la macro aussi.
j'ai été bloqué trop et finalement trouvé la solution dans la fonctionnalité d'accessibilité de Windows après quoi j'ai essayé toutes les options étudiées et 3 d'entre eux ont travaillé pour moi dans 3 différents scénario.
Etape #01: si votre clavier n'a pas de touche spécifique, s'il vous plaît ne vous inquiétez pas et ouvrez le "clavier à L'écran" à partir des utilitaires Windows en appuyant sur Win+ U.
Étape n ° 02: maintenant, essayez l'une des options ci-dessous et elles fonctionneront certainement en fonction de votre architecture système, C'est-à-dire OS et version bureau
- Ctrl Pause
- Ctrl+ arrêt défil
- Esc+ Esc (Appuyez deux fois de suite)
vous serez mis en mode break en utilisant les combinaisons de touches ci-dessus car la macro suspend l'exécution immédiatement en terminant la tâche en cours. Pour eg. s'Il tire les données du web, alors il s'arrêtera immédiatement avant d'exécuter n'importe quelle commande suivante, mais après avoir tiré les données, après quoi on peut appuyez sur la touche F5 ou F8 pour continuer le débogage.
Vous pouvez arrêter une macro en appuyant sur ctrl+ break mais si vous n'avez pas la touche de rupture vous pouvez utiliser ce autohotkey (open source) code:
+ ces:: SendInput {CtrlBreak} retour
appuyer sur maj+ Escape sera comme appuyer sur ctrl+ break et ainsi stoppera votre macro.
Toute la gloire à cette page
j'aime également utiliser MsgBox pour le débogage, et j'ai rencontré ce même problème plus d'une fois. Maintenant j'ajoute toujours un bouton D'annulation à la fenêtre popup, et je sors de la macro si Cancel est pressé. Exemple de code:
If MsgBox("Debug message", vbOKCancel, "Debugging") = vbCancel Then Exit Sub
vous pouvez également essayer d'appuyer sur la touche" FN "ou la touche de fonction avec le bouton "Break" ou avec le bouton "sys rq" - requête système comme ceci - doit être pressé ensemble et cela arrête toute macro en cours d'exécution
j'ai trouvé que parfois quand j'ouvre une deuxième fenêtre Excel et exécute une macro sur cette deuxième fenêtre, l'exécution de la première S'arrête. Je ne sais pas pourquoi ça ne marche pas tout le temps, mais vous pouvez essayer.
j'ai oublié de commenter une ligne avec une MsgBox avant d'exécuter ma macro. Ce qui veut dire que je devrais cliquer sur OK plus de Cent mille fois. La touche ESC échappait simplement à la boîte de message mais n'arrêtait pas l'exécution de la macro. Le fait de maintenir la touche ESC en permanence pendant quelques secondes m'a aidé à arrêter l'exécution du code.
ma petite suggestion rétrospective est d'insérer un Stop après chaque Msgbox que vous utilisez dans le debug. Si vous écrivez pour une Msgbox qui renvoie une réponse (par exemple, VbOk, VbCancel), ajoutez également une instruction Stop à chacune. Sortez les déclarations d'arrêt quand tout est parfait.
ce n'est pas une solution élégante en aucun cas, et je ne la recommanderais pas à moins que vous ne soyez désespéré.
si vous itérez des données, vous pouvez vérifier l'existence d'un fichier dans un dossier quelque part dans votre boucle I. e votre code continue de fonctionner tant qu'un fichier spécifique n'est pas trouvé dans le dossier. Vous pouvez le faire en ajoutant les lignes suivantes:
DirFile = FilePath & "ExampleFolder\stop.txt"
If Len(Dir(DirFile)) = 0 Then
Else
MsgBox ("Code stopped by stopfile")
Exit Sub
End If
à la fin de votre boucle. Cela va sortir du sub si vous ajoutez un fichier textfile appelé stop à votre ExampleFolder.