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 ...
Voir la suite