Mesurer la vitesse d'un macro

bonjour Michel,

tu mets en début de macro cette commande,

x = Now

et en fin de macro celle-ci,

y = Now
MsgBox Format(y - x, "hh:mm:ss")

isabelle

Bonsoir,

Existe-t-il un moyen de mesurer la vitesse d'exécution de plusieurs macros
pour les comparer ?

Merci,

Michel

Super, Merci Isabelle
Michel

isabelle wrote:

bonjour Michel,

tu mets en début de macro cette commande,

x = Now

et en fin de macro celle-ci,

y = Now
MsgBox Format(y - x, "hh:mm:ss")

isabelle

Bonsoir,

Existe-t-il un moyen de mesurer la vitesse d'exécution de plusieurs
macros pour les comparer ?

Merci,

Michel

Gloups, encore une question Isabelle:
Comment faire pour afficher jusqu'au millième de seconde car ma macro est en
deça de la seconde ?
Merci

Michir wrote:

Super, Merci Isabelle
Michel

isabelle wrote:

bonjour Michel,

tu mets en début de macro cette commande,

x = Now

et en fin de macro celle-ci,

y = Now
MsgBox Format(y - x, "hh:mm:ss")

isabelle

Bonsoir,

Existe-t-il un moyen de mesurer la vitesse d'exécution de plusieurs
macros pour les comparer ?

Merci,

Michel

comme ça,

x = Now
'la macro
MsgBox Format(Now() - x, "hh:mm:ss.00")

isabelle

Gloups, encore une question Isabelle:
Comment faire pour afficher jusqu'au millième de seconde car ma macro est en
deça de la seconde ?
Merci

Michir wrote:

Super, Merci Isabelle
Michel

isabelle wrote:

bonjour Michel,

tu mets en début de macro cette commande,

x = Now

et en fin de macro celle-ci,

y = Now
MsgBox Format(y - x, "hh:mm:ss")

isabelle

Bonsoir,

Existe-t-il un moyen de mesurer la vitesse d'exécution de plusieurs
macros pour les comparer ?

Merci,

Michel

Bonsoir isabelle,

La précision de Now() n'est que de la seconde.
Une solution est d'utiliser la fonction Gettickcount :

Declare Function GetTickCount Lib "Kernel32" () As Long
Sub Test()
x = GetTickCount
'la macro
MsgBox GetTickCount - x & "ms"
End Sub


A+
Nicolas B.

comme ça,

x = Now
'la macro
MsgBox Format(Now() - x, "hh:mm:ss.00")

isabelle

Gloups, encore une question Isabelle:
Comment faire pour afficher jusqu'au millième de seconde car ma macro
est en deça de la seconde ?
Merci