Calcul de la durée d'une procédure

[13GIBE59]

Bonjour le forum.

Je souhaiterais calculer la durée d’une procédure et l’intégrer en fin de macro dans une boîte de message du genre : MsgBox ("Fin du traitement. Calcul effectué en x secondes ").

Peut-on calculer en vba la durée écoulée entre le Clic bouton départ et la End Sub ?

Merci d’avance.

 

[Pierrot93]

Re : Calcul de la durée d'une procédure

bonjour gibi

essaye peut être ainsi :

Option Explicit
Sub test()
Dim t As Date
t = Time

'ton code

MsgBox Format(Time - t, "hh:mm:ss")
End Sub

bonne journée
@+

 

[mromain]

Re : Calcul de la durée d'une procédure

Bonjour13GIBE59,


voici un exemple :

Sub t()
Dim tempo
tempo = Now

...
...
...

MsgBox Format(Now - tempo, "[ss]")
End Sub

a+


edit: bonjour Pierro93

 

[Dull]

Re : Calcul de la durée d'une procédure

Salut JB, Le Forum

Regarde la réponse de l'ami François(AliasGruick...aliasUnBonJambon...aliasCarrypied'de'porc...alias... mon ami)

est-ce cela que tu cherche?

EDITION: Salut Pierrot , Romain

Bonne Journée

 

[job75]

Re : Calcul de la durée d'une procédure

Bonjour le fil,

Time ou Now sont évalués chaque seconde.

Pour avoir plus de précision (1/100), utiliser Timer ou Evaluate("NOW()")

A+

 

[Hulk]

Re : Calcul de la durée d'une procédure

Hello les amis,

Avec un Timer comme le préconise Job...Un exemple

Private Sub CommandButton1_Click()

    TempsEcoule = Timer
    
    For i = 1 To 50
        For j = 1 To 50
            [A1] = "Mot " & i
        Next j
    Next i
    
    MsgBox Timer - TempsEcoule
    
End Sub

Cdt, Hulk.

 

[job75]

Re : Calcul de la durée d'une procédure

Re,

L'ennui avec Time ou Timer c'est quand on lance la macro à 23:59:59

Jamais de problème avec Evaluate("NOW()")...

A+

 

[13GIBE59]

Re : Calcul de la durée d'une procédure

Bonjour Hulk, job75, Dull, mromain, Pierrot93.

Merci à vous tous pour vos réponses aussi rapides que variées.
Je testerai tout ça à la maison (je n'ai pas le fichier au boulot, honte à moi ) et je vous répondrai un peu plus tard, promis.

A +

 

[13GIBE59]

Re : Calcul de la durée d'une procédure

Rebonjour Hulk, job75, Dull, mromain, Pierrot93.

Désolé de répondre un peu tard, mais des contretemps professionnels liés à une permanence agitée ont eu raison de mon emploi du temps...Cela dit, vieux motard que j'aimais ...

Dans l'ordre d'apparition à l'écran :

Pierrot93 : ton code est nickel, impeccable. Grande classe !
mromain : ton code est très bien aussi mais le format 0,000000 e-5 me rebute un peu...
Hulk : ton code est très bien aussi. Grande classe itou !
Dull : merci pour ton lien vers un fil (de l'eau) intéressant, mais dont je n'ai osé parcourir les méandres, peu porté par la navigation... Cela dit, je ne doute pas qu'en tant qu'insulaire, ton exploration mène vers une île merveilleuse pleine de coffres aux trésors...excel-lentissimes.
Job75 : pour paraphraser le regretté Jean YANNE, sache que JE NE LANCE JAMAIS DE MACRO A 23:59:59. JE HAIS 23:59:59 !
Arf !

En tous cas, merci à vous tous d'avoir comme d'habitude, consacré un peu, beaucoup, passionnément, de votre temps à ma demande.

Bon week-end.

PS : je crois que je vais choisir le code de Pierrot93...

 

[kiki29]

Re : Calcul de la durée d'une procédure

Salut, et une autre ...

Option Explicit

Private Declare Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean
Private Declare Function QueryPerformanceFrequency Lib "Kernel32" (X As Currency) As Boolean

Dim Debut As Currency, Fin As Currency, Freq As Currency

Sub Tst()

    QueryPerformanceCounter Debut
    
    '   .....
    
    QueryPerformanceCounter Fin
    QueryPerformanceFrequency Freq

    MsgBox "Temps écoulé : " & Format(((Fin - Debut) / Freq), "0.00 s")

End Sub

 

[Brigitte]

Re : Calcul de la durée d'une procédure

Bonsoir,

Travaille bien JB (pour une fois, hihi)...

Ceci dit, je suis drôlement épatée qu'on puisse (mais que ne pouvez vous, vous les grands d'xld) mesurer le temps d'une procédure et pire, qu'il soit juste.

En effet, quand je vois ici et là des back up, des mises à jours, des copies qui donnent un temps qui fluctue du début à la fin, sans dire qu'il est faux à la fin... je suis étonnée qu'il puisse être juste.

Dites moi, dites moi...

Bises JB