Chronomètre et chronométrage

[ouskel'n'or]

Bonjour,

Je vous propose un nouvel élément à utiliser : Chronomètre et chronométrage

Utilisez la fonction API GetTickCount pour mesurer le temps écoulé.

Par exemple, pour mesurer le temps de déroulement d'une macro.

En tête d'un module standard, déclarez la fonction:

Code :

Public Declare Function GetTickCount& Lib "kernel32" ()

Puis pour l'utiliser:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub MesureDuTempsQuiPasse()
 
Dim Départ As Double, arrivée As Double,  Durée As Double,i As Long
Dim mn As Integer, ms As Integer, sd As Integer, tps As String
 
    Départ = GetTickCount&
 
    '************* ton 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

Testé sous XL2000/2002

Qu'en pensez-vous ?