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 : Sélectionner tout - Visualiser dans une fenêtre à part
Public Declare Function GetTickCount& Lib "kernel32" ()
Puis pour l'utiliser:
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
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 ?