Chrono tout bête.zip


Le même par macro
En tête d'un module standard, déclarer la fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Public Declare Function GetTickCount& Lib "kernel32" ()
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub MesureDuTempsQuiPasse()
Dim Départ As Double, arrivée As Double, i As Long, Durée as double
Dim mn As Integer, ms As Integer, sd As Integer, tps As String
    Départ = GetTickCount&
    '************* *** Le code ******************
    For i = 1 To 100000 'remplace le déroulement du code
         DoEvents
    Next
    '*****************************************
    arrivée = GetTickCount&
    Durée = arrivée - Départ
    mn = Int(Durée / 1000 / 60)
    sd = Int((Durée / 1000) - (mn * 60))
    ms = Durée - (sd * 1000) - (mn * 1000 * 60)
    'Formatage #:##:###
    tps = mn & ":" & right("00" & sd, 2) & ":" & Right("000" & ms, 3)
    MsgBox tps
End Sub
Remarque : La fonction GetTickCount& peut être appelée de toutes procédures. Ce qui permet, en ayant déclaré "Départ" en variable Public, d'obtenir à tout moment une durée.