Sortir d'une boucle For grace à un Timer

Mounss

XLDnaute Nouveau
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.
 

tototiti2008

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

Bonjour Mounss, Bonjour JBARBE,

Peut-être un truc du genre

Code:
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"
 

JBARBE

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

Bonjour,

Ci-joint un fichier comportant 2 Chronos !

Peut-être que cela aidera !
 

Pièces jointes

  • Chrono.xls
    94 KB · Affichages: 55
  • Chrono.xls
    94 KB · Affichages: 54
  • Chrono.xls
    94 KB · Affichages: 56

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 009
Membres
101 865
dernier inscrit
MLL