Chronomètre et chronométrage

Présentation
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:

Vba
Public Declare Function GetTickCount& Lib "kernel32" ()

Puis pour l'utiliser:

Vba
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
Détails
Catégories : Applications Excel
Voir tous les téléchargements de l'auteur
Licence : Non renseignée
Date de mise en ligne : 28 décembre 2011





 
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.
Responsables bénévoles de la rubrique Excel : Pierre Fauconnier - Arkham46 -

Partenaire : Hébergement Web