Chronomètre et chronométrage

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

Nos ressources disponibles

Par exemple, pour mesurer le temps de déroulement d'une macro.
En tête d'un module standard, déclarez la fonction:

Code VBA :

Sélectionner tout

Public Declare Function GetTickCount& Lib "kernel32" ()

Puis pour l'utiliser:

Code VBA :

Sélectionner tout

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,  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

Signaler un problème

Soyez le premier à donner votre avis

Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.