arrêter une boucle infinie

[awa123]

Bonjour,

lorsque je fais des test sur le vba , il m'arrive d'être confronté à des boucles infinis , comment faire donc pour forcer l'arrêt ?

j'ai vu que certains dise qu'il suffit de cliquer sur ctrl+p mais chez moi cela ne fait rien et l’exécution continue

merci

 

[Grand Chaman Excel]

Re : arrêter une boucle infinie

Appuyer sur CTRL + PAUSE (BREAK)
ou mettre un compteur avec une condition d'arrêt.
Ici par exemple, on arrête après un max de 10000 itérations.

Sub Toto()
   Dim MaxCompteur As Integer
   
   Do Until X = Y Or MaxCompteur = 10000
      
      'Opérations normales ici
      
      'Incrémentation du compteur
      MaxCompteur = MaxCompteur + 1
   Loop

End Sub

 

[Pierrot93]

Re : arrêter une boucle infinie

Bonjour,

une autre solution peut être, avec la touche "ECHAP"...

bon après midi
@+

 

[Modeste geedee]

Re : arrêter une boucle infinie

Bonsour®
en début de proc :

On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
MsgBox "This may take a long time: press ESC to cancel"
For x = 1 To 1000000    ' Do something 1,000,000 times (long!)
    ' do something here
Next x

handleCancel:
If Err = 18 Then
    MsgBox "You cancelled"
End If

pour plus d'infos mettre ce lien dans la barre de commande de votre browser:

ms-help://MS.EXCEL.DEV.12.1036/EXCEL.DEV/content/HV10035054.htm