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

Quincy · 10 Février 2009

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 · 10 Février 2009

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

bonjour Quincy,

voici un exemple:

Code:

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 · 10 Février 2009

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 · 10 Février 2009

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

Quincy à dit:
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

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

Quincy

XLDnaute Occasionnel

Guest

Guest

Quincy

XLDnaute Occasionnel

Quincy

XLDnaute Occasionnel

Discussions similaires

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

Quincy

XLDnaute Occasionnel

Guest

Guest

Quincy

XLDnaute Occasionnel

Quincy

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency