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 :
Et dans Module 1 :Code:
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
Ça ne fonctionne pas. Je me suis trompé où ?Code:
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
Merci à ceux qui pourront m'aider