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