Discussion :

[mancired]

Bonjour,

Je souhaiterais coder une sortie automatique d'une boucle 'for' après un certain temps passé dans dans cette boucle.

Je recherche une syntaxe me permettant de le faire

L'un d'entre vous pourrait-il m'aider ?

[Didier Gonard]

Bonjour,

Tu regardes dans l’aide vba les fonctions Timer , now bref une fonction liée au temps.
A l’entrée de ta boucle tu mets en variable le temps actuel ( qui devient temps départ) et à chaque boucle tu mets un truc du genre If temps actuel = temps départ + xx then exit for.

Cordialement,

Didier

[JPierreM]

Didier a été plus rapide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub sc()
b = Time
For i = 1 To 100000
c = b + TimeValue("00:00:10")
'réglage du temps pour la sortie de la boucle
    If Time = c Then
        MsgBox "Sortie de la boucle"
        Exit Sub
    End If
Application.Wait (Now + TimeValue("0:00:1"))
'traitement à appliquer, mis pour patentier
Next i
 
End Sub

[mancired]

à vous !