Discussion :

[jmh-60]

Bonjour
Ma configuration : Win 7 - 64b et Excel 2003
Dans un programme de résolution d'équation, j'ai une boucle qui peut tourner très longtemps.
Je veux pouvoir l'interrompre par l'appui d'une touche
J'ai fait ceci :
Dans ThisWorkBook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
 
    ' Reassign Ctrl+C
   Application.OnKey "s", "Fini"
   ' Disable Ctrl+C
   'Application.OnKey "^c", ""
   ' Restore Ctrl+C
   ' Application.OnKey "^c"
End Sub

Et dans Module 1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Fini()
    Rep = MsgBox("Boucle interrompue. Continuer ?", vbYesNo)
    ' Oui = 6   Non = 7
    If Rep = 6 Then Exit Sub
    If Rep = 6 Then GoTo FIN
End Sub

Ça ne fonctionne pas. Je me suis trompé où ?

Merci à ceux qui pourront m'aider

[Menhir]

Si tu veux simplement arrêter l'exécution d'une macro, il suffit d'appuyer sur la touche Esc.

En plus, ta procédure Fini n'arrêtera pas la macro souhaitée.
Le Exit Sub mettra uniquement fin à la procédure Fini et aucune autre.
Quand à la ligne suivante, elle ne s'exécutera jamais puisqu'elle ne peut s'exécuter que si la réponse est 6 et, si c'est le cas, la ligne précédente aussi s'exécutera mettant fin à la procédure Fini.
Sans compter qu'à ma connaissance, FIN n'est pas une constante système. Donc pour qu'il Goto FIN fonctionne, il faudrait que le module compte un label FIN.
Si ce label FIN se trouve dans un autre Sub, ça ne fonctionnera pas : les GoTo ne permettent pas de sauter d'un processus à l'autre.

Petit détail de puriste : pour les réponses à une MsgBox, je te conseille plutôt d'utiliser les constantes système (xlYes et xlNo) plutôt que des valeurs numériques. C'est à la fois plus parlant quand on relit le code et surtout plus perenne.

[jmh-60]

Merci pour ta réponse
En réalité c'est dans le programme principal que se trouve la boucle que je vaux stopper.
L'étiquette FIN: se trouve dans le programme principal à l'endroit où je veux arriver
Voici un résumé de la structure du programme principal :

Quand on clique un bouton de commande on arrive là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Resolution_Click()
--------
--------
do
    --------------
    --------------
    --------------
loop
 
FIN:
End Sub

Mais quand j'appuie sur "s" il ne se passe rien
J'ai mis des points d'arrêt dans Sub Fini() et dans Private Sub Workbook_Open() pour constater que le programme n'y arrivait jamais.

[Menhir]

Mais quand j'appuie sur "s" il ne se passe rien
J'ai mis des points d'arrêt dans Sub Fini() et dans Private Sub Workbook_Open() pour constater que le programme n'y arrivait jamais.

Je t'ai expliqué les multiples raisons pour lesquelles ta procédure "Fini" ne peut pas fonctionner.
Il y a sans doute aussi le fait que Excel n'est pas vraiment multi-tâches. Je ne suis pas sûr qu'une procédure puisse commencer alors qu'une autre est toujours en cours (je pense même, sans certitude, qu'elle ne le peut pas).
Ca fait 4 raisons (chacune étant suffisante) pour lesquelles ta procédure ne fonctionnera pas.

Une méthode propre de faire ça serait d'ajouter à ta boucle Do Loop une condition qui, si elle est Vraie, ne passe pas au tour suivant.
Ca permettrait de sortir de la boucle proprement.

Mais, comme je l'ai dit, la touche Esc arrête les macro en cours d'exécution.