[réglè]Arrêter macro en cliquant sur annuler

[David]

Bonjour à tous

J'ai 4 formes qui lances des macros différentes et pour ne pas avoir à créer 4 user form, je voulais n'en créer qu'un seul. J'ai donc créer un seul userform, dans chacune des macro j'ai mis :

Load UserForm2
UserForm2.Show

Dans le UserForm2 si je clique sur continuer, ça ferme le userform et les macros continuent, parfait!
Mais si je clique sur annuler je n'arrive pas à arreter la macro que j'ai lancé, si je met exit sub dans annuler du UserForm2, ça arrête la macro de "annuler", mais la macro que j'ai lancé continue, comment faire pour qu'à la fermeture du UserForm2, ça arrête aussi la macro par laquelle je l'ai lancé si je clique sur "annuler".

Merci

 

[gilbert_RGI]

Re : Arrêter macro en cliquant sur annuler

Bonjour

normalement pour arrêter une macro lancée on utilise la combinaison de touches Ctrl + pause

donc peut-être pouvez vous employer cette combinaison avec Onkey

mais je ne pense pas que cela puisse se faire car on ne peut utiliser qu'une procédure a la fois 🙁

 

[David]

Re : Arrêter macro en cliquant sur annuler

gilbert_RGI

Merci pour la réponse.
Je pense aussi qu'on ne peut faire qu'une procédure à la fois d'ou mon problème, mais je voudrais quand même essayer on ne sait jamais, mais je n'arrive à trouver la bonne syntaxe, j'ai mis :

Application.OnKey "{^BREAK}", "Tri_alea"

Mais j'ai le message erreur 1004 la méthode onkey de l'objet '_application' a échoué.

Merci

 

[tototiti2008]

Re : Arrêter macro en cliquant sur annuler

Bonjour David, Bonjour Gilbert,

La commande "End" devrait terminer tout le code en cours d'exécution, "Exit Sub" ne sort que de la procédure en cours, à tester.

 

[David]

Re : Arrêter macro en cliquant sur annuler

Bon j'ai trouvé la syntaxe : Application.OnKey "^{BREAK}", "Tri_alea" mais ça ne marche pas. Quelqu'un a une idée ou je dois faire 4 Userfom?

Merci

 

[David]

Re : Arrêter macro en cliquant sur annuler

Bonjour David, Bonjour Gilbert,

La commande "End" devrait terminer tout le code en cours d'exécution, "Exit Sub" ne sort que de la procédure en cours, à tester.

Trop fort, j'ai cherché trop compliqué!!!!!
ça marche super bien.

Merciiiiiiiiiiiiiiiiiiiiii