Sortir d'une boucle For grace à un Timer

[Mounss]

Bonjour à tous,

Ca fait pas mal de temps que je cherche une solution à ce problème.

Je créé en VBA un test de math pour entrainer ma fille.

Elle doit réussir une série de 10 calculs en une minute.

Pas de problème pour créer le test mais par contre je n'arrive pas à sortir de ma boucle For lorsque la minute est passée.

Auriez-vous une solution ?

Merci d'avance.

 

[JBARBE]

Re : Sortir d'une boucle For grace à un Timer

Bonjour,

En principe >>>>>>

exit for

permet de sortir d'une boucle for!

Mais un exemple est préférable !

 

[tototiti2008]

Re : Sortir d'une boucle For grace à un Timer

Bonjour Mounss, Bonjour JBARBE,

Peut-être un truc du genre

Sub TestTemps()
Dim Debut As Date, i As Long
    Debut = Now
    For i = 1 To 1000000000
         If (Now - Debut) * 86400 > 60 Then
            MsgBox "Minute écoulée"
            Exit For
        End If
    Next i
End Sub

Tu peux aussi aller voir l'aide VBA sur "Timer"

 

[MJ13]

Re : Sortir d'une boucle For grace à un Timer

Bonjour à tous

J'aurais bien vu un Ontime. Comme cela le PC n'est pas bloqué.

 

[JBARBE]

Re : Sortir d'une boucle For grace à un Timer

Bonjour,

Ci-joint un fichier comportant 2 Chronos !

Peut-être que cela aidera !

 

[Mounss]

Re : Sortir d'une boucle For grace à un Timer

Merci à tous pour votre réponse si rapide.

La solution de Tototiti convient parfaitement à mon exercice. 😎

Bonne journée