XL 2013 temps d'execution d'un macro

[gena]

bonsoir le forum
je voudrais savoir si vous pouvez m'aidé je recherche comment calculer le temps d'exécutions d'un macro par un msgbox
avec tout mes remercîments

 

[Theze]

Bonjour,

Une piste :

Sub Test()
   
    Dim I As Long
    Dim T As Single
   
    T = Timer
   
    For I = 1 To 100000
   
        DoEvents
        DoEvents
       
    Next I
   
    MsgBox Format((Timer - T) / 86400, "hh:mm:ss")
   
End Sub

 

[gena]

BONSOIR LE forum
merci beaucoup THEZE tout est parfais encore tout mes remerciments