IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)

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
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.