Echap ou CTRL Pause comme indiqué dans l'aide VBA de la propriété EnableCancelKey …
En la laissant par défaut et combinée avec DoEvents au sein de la boucle,
tout dépend si Excel devient inactif et effectivement cela ne fonctionne pas toujours …
Dans ce cas, il faut procéder comme dans l'exemple de l'aide VBA via Echap :
Code:
1
2
3
4
5
6
7
8
9
10
| Sub Demo1()
On Error GoTo Fin
Application.EnableCancelKey = xlErrorHandler
Do
L& = L& + 1
Loop
Exit Sub
Fin:
If Err.Number = 18 Then MsgBox "Echap !"
End Sub |
Edit :
:fleche: Par défaut c'est aussi Alt Echap en combinant avec DoEvents :
Code:
1
2
3
4
5
6
| Sub Demo2()
Do
L& = L& + 1
DoEvents
Loop
End Sub |
:alerte: Après avoir fermé Excel puis en testant uniquement Demo2, Echap fonctionne sans DoEvents
et Alt Echap avec DoEvents … Tests effectués sous Seven & Excel 2003 et sous Windows 8.1 & Excel 2010.
_________________________________________________________________________________________________________
Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
