Stopper une macro en tapant une touche

[MJ13]

Bonjour à tous

J'aimerais savoir si on peut stopper une macro en cours d'éxécution en tapant une touche qu'on aurait défini.

En effet, quelque fois, j'ai des macros qui tournent sous Win7 et XL2007 et le fait d'appuyer sur ctrl+pause ne fonctionne pas et m'oblige à arrêter Excel par ctrl+Alt+Suppr et arrêter le processus Excel 🙁.

Merci d'avance pour votre aide 🙂.

 

[phlaurent55]

Re : Stopper une macro en tapant une touche

Bonjour Michel,

as-tu essayé en pressant la touche "Esc"

à+
Philippe

 

[MJ13]

Re : Stopper une macro en tapant une touche

Bonjour Philippe

Merci pour ta réponse 🙂.

Mais c'est pareil avec la touche Esc ou les touches Ctrl+Pause 😱.

Franchement, je ne vois pas l'intérêt des 5 étoiles 😉.

Sinon, j'ai refait le même processus sur le fichier de ce matin qui bugggait, et cela ne le fait plus, bizarre quand même 😕.

Si cela le refait, je testerai avec un onkey avec une procédure arret 🙂.

 

[MJ13]

Re : Stopper une macro en tapant une touche

Re

Bon après un petit peu de recherche sur le net, on ne peut pas , quand il est écrit: "le programme ne répond pas" en haut d'Excel 😱.

Le mieux est d'attendre que la macro aie finie son travail 🙂.

 

[Dranreb]

Re : Stopper une macro en tapant une touche

Bonjour.
Je ne sais si ça peut convenir:
J'ai un joli petit usf avec une barre d'avancement.
Lorsqu'on demande à le fermer, ça interromp le processus.
S'emploie très facilement: il suffit de connaîre à l'avance le nombre de passages prévus dans une boucle.
À+

 

[MJ13]

Re : Stopper une macro en tapant une touche

Bonjour Dranreb

J'ai un joli petit usf avec une barre d'avancement.
Lorsqu'on demande à le fermer, ça interromp le processus.
S'emploie très facilement: il suffit de connaîre à l'avance le nombre de passages prévus dans une boucle.

La, ça m'intéresse. Comme j'ai une boucle, je pourrais tester 🙂.

Pourrais-tu joindre le code?

Merci d'avance 🙂.

 

[Dranreb]

Re : Stopper une macro en tapant une touche

Voilà.
Le dialogue avec l'Usf est dans un module BarreÉtat où je regroupe un peu tous les problèmes de temps réèl, d'afichage d'états et d'utilisation de la barre d'état. Si d'autres fonctionnalités dont certaines en commentaire t'interressent, demande moi ce qui manque.
Cordialement.

 

[MJ13]

Re : Stopper une macro en tapant une touche

Re

Merci Dranreb, bel exercice de style. Mais la ça me dépasse un peu, beaucoup, passionnément... 😱.

Mais j'ai peut-être trouvé une parade (après avoir testé le coup de l'USf mais qui buggait pareil en fermant Excel inopinément): je rajoute un compteur de sauveagrde et je sauvegarde tous les 100 dans ma boucle de 2546 par exemple. Ainsi la touche Esc semble fonctionner dans ce cas et je peux arrêter le programme. Et en cas de vrai bug, je n'aurais pas tout perdu 🙂.

Voici la ligne à rajouter dans la boucle:

 isauv = isauv + 1: If isauv = 100 Then ThisWorkbook.Save: isauv = 1

 

[Dranreb]

Re : Stopper une macro en tapant une touche

la ça me dépasse

Pas l'emploi tel qu'illustré dans la CommandButton1_Click j'espère ?
Juste avant la boucle:
Tâche Texte, NbrPrévus, [Unités] (Unités = "pixels" par défaut)
et simplement un appel à OùÇaEnEst après chaque passage dans la boucle.
Maintenant si tu souhaite comprendre comment ça marche, n'hésite pas à me poser des questions.

après avoir testé le coup de l'USf mais qui buggait pareil en fermant Excel inopinément

Ça m'intéresse beucoup parce qu'à mes yeux il était fiable !
Dans mon classeur ou dans une adaptation du tien ?
Dans ce dernier cas peut tu joindre un classeur présentant ce plantage s.t.p.

 

[MJ13]

Re : Stopper une macro en tapant une touche

Re

En fait c'est le fichier dans cette discusison. Si je prend un dossier avec 2500 images par exemple et que je choisi une taille d'image de 1024, cela bug sur le bouton n° 3, au bout de quelques dizaines d'images incorporées avec XL2007 et Win7 (cela me l'a souvent fait 🙁).

https://www.excel-downloads.com/thr...-suppression-photos-mouton-a-5-pattes.154875/

Par contre:

Ça m'intéresse beucoup parce qu'à mes yeux il était fiable!

Je n'ai pas testé ton code, vu que cela me dépassait 😱.

Mais bon, comme ma solution semble fonctionner, cela ne me dérangera pas si tu laisses tomber 🙂.

Merci et bon Week-end 🙂.