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

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2009

• #2

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

bonjour gibi

essaye peut être ainsi :

Code:

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

'ton code

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

bonne journée
@+

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 13 Novembre 2009

• #3

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

Bonjour13GIBE59,


voici un exemple :

Code:

Sub t()
Dim tempo
tempo = Now

...
...
...

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

a+


edit: bonjour Pierro93

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 13 Novembre 2009

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Novembre 2009

• #5

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+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 13 Novembre 2009

• #6

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

Hello les amis,

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

Code:

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Novembre 2009

• #7

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+

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 13 Novembre 2009

• #8

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 +

 

Vote positif 0 Vote négatif

13GIBE59

XLDnaute Accro

• 14 Novembre 2009

• #9

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...

 

Dernière édition: 21 Novembre 2009

Vote positif 0 Vote négatif

kiki29

XLDnaute Barbatruc

• 14 Novembre 2009

• #10

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

Salut, et une autre ...

Code:

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

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 14 Novembre 2009

• #11

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

 

Vote positif 0 Vote négatif