Declare Function GetTickCount Lib "Kernel32" () As Long
Dim Arreter As Boolean
Sub Minuterie(Milliseconde As Long)
Dim Arret As Long
Arret = GetTickCount() + Milliseconde
Do While GetTickCount() < Arret
DoEvents
Loop
End Sub
Sub LancerChrono()
Dim Cel As Long
'autorise le fonctionnement du chrono
Arreter = False
'tourne tant que la variable n'est pas à True
Do While Arreter = False
'en feuille "Feuil1" (à adapter), récupère la première cellule vide
'de la colonne A, y inscrit l'heure et en colonne B la valeur de A1
With Worksheets("Feuil1")
Cel = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'sur colonne A
Range("A" & Cel).Value = Format(Time, "hh:mm:ss")
Range("B" & Cel).Value = Range("A1")
End With
'ici, 2 secondes (valeur en millisecondes), pour une minute = 10000
Minuterie 2000
Loop
End Sub
Sub ArreterChrono()
'arrête le chrono
Arreter = True
End Sub