Bonjour,

Je travaille sur une macro qui fait des calculs et qui tourne longtemps (> 6heures) mais j'aimerais pouvoir l'interrompre en appuyant une touche au clavier,
ceci pour vérifier si tout se passe bien. Ensuite je modifie le début d'une boucle et je peux reprendre là où s'en était.

J'ai trouvé cette macro sur le net que j'aimerais inclure dans la mienne.
J'ai commencé à la mettre seule dans un fichier Excel (prenant en charge les macros) pour l'évaluer, mais ça ne marche pas.
Voici ma macro ci-dessous ; je lance ma macro avec de longues boucles, mais quand j'appui sur les touches PgUp ou PgDown rien ne se passe.

Voilà ce que c'est quand on est un petit bricoleur qui pompe de petit fragment de code sans rien comprendre en profondeur, mais j'ai 63 ans et j'ai commencé sur Basic.

Merci pour votre aide.


Sub Détection()
'
' Détection Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+T
'
Application.OnKey "{PGDN}", "PgDn_Sub"
Application.OnKey "{PGUP}", "PgUp_Sub"

For i = 1 To 1000000

For j = 1 To 1000000


Next j

Next i

Sheets("Feuil1").Cells(5, 4) = "Fin"

End Sub
Sub PgDn_Sub()
On Error Resume Next
Sheets("Feuil1").Cells(3, 4) = "Down"
End Sub
Sub PgUp_Sub()
On Error Resume Next
Sheets("Feuil1").Cells(3, 4) = "Up"
End Sub