Durée d'exécution d'une macro

[Quincy]

Bonjour à tous

Je cherche à afficher la durée d'exécution d'une macro (xx minutes, xx secondes) à la fin de la procédure dans une "Application.StatusBar".
Pouvez-vous me dire si cela est réalisable ?
Merci d'avance.

Quincy

 

[Guest]

Re : Durée d'exécution d'une macro

bonjour Quincy,

voici un exemple:

Sub LeTemps()
    Dim t
    t = Time
    [COLOR=red]Do
        DoEvents
    Loop While Time <= t + TimeValue("00:00:10")
[/COLOR]    t = Time - t
    Application.StatusBar = Minute(t) & " minute(s) et " & Second(t) & " seconde(s)"
End Sub

Ce qui est en rouge est à remplacer par le contenu de ta macro
A+

 

[Quincy]

Re : Durée d'exécution d'une macro

Bonjour Hasco et merci de ta réponse rapide mais...

je ne comprends pas la façon de procéder quand tu dis " Ce qui est en rouge est à remplacer par le contenu de ta macro ".

 

[Quincy]

Re : Durée d'exécution d'une macro

Bonjour Hasco et merci de ta réponse rapide mais...

je ne comprends pas la façon de procéder quand tu dis " Ce qui est en rouge est à remplacer par le contenu de ta macro ".

Ok c'est bon merci.

J'ai inséré le nom de ma macro entre DoEvents et Loop While Time <= t + TimeValue("00:00:10") et lancé ta macro et ça marche !

Merci beaucoup

Quincy