[VBA-E] Tracer le temps d'exécution d'une fonction

Bonjour,

Petite question sûrement toute simple pour les pros du vba, vous utilisez quoi comme fonction pour tracer le temps d'execution de vos codes VBA ??? :oops:

Time avant et apres l'execution ???

Merci d'avance,

Regarde là ;)

Citation:

---

Envoyé par ouskel'n'or

Regarde là ;)

---

OK Thanks, j'avais parcouru le forum et les faqs vba, mais n'ai pas encore le réflexe d'aller voir dans la partie sources du forum.

J'ai voulu adapter ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Public Function Duree_Execution(fonction As String) As String   Dim debut As Double Dim fin As Double Dim duree As Double   Dim min As Integer Dim sec As Integer Dim ms As Integer   debut = GetTickCount& fonction fin = GetTickCount&   duree = fin - debut   min = Int(duree / 1000 / 60) sec = Int((duree / 1000) - (min * 60)) ms = duree - (sec * 1000) - (min * 1000 * 60)   Duree_Execution = min & ":" & Right("00" & sec, 2) & ":" & Right("000" & ms, 3)   End Function

---

Mais visiblement c'est pas possible de passer une fonction en argument d'une autre fonction, même en passant juste son nom dimensionné en string.. ???

Pour lancer une fonction depuis une autre fonction, je ne sais pas (Je n'ai pas le tps de tester) mais si tu fais ton test départ sur la ligne précédant l'appel de la fonction et arrivée sur la ligne suivant le retour de la fonction, tu as bien le temps d'exécution de la fonction...
Tout dépend du temps que tu veux mesurer, apparemment, c'est bien le temps d'exécution de la fonction...
A+

Tu as bien déclaré la fonction

Code:

---

Public Declare Function GetTickCount& Lib "kernel32" ()

---

Citation:

---

Envoyé par ouskel'n'or

Pour lancer une fonction depuis une autre fonction, je ne sais pas (Je n'ai pas le tps de tester) mais si tu fais ton test départ sur la ligne précédant l'appel de la fonction et arrivée sur la ligne suivant le retour de la fonction, tu as bien le temps d'exécution de la fonction...
Tout dépend du temps que tu veux mesurer, apparemment, c'est bien le temps d'exécution de la fonction...
A+

Tu as bien déclaré la fonction

Code:

---

Public Declare Function GetTickCount& Lib "kernel32" ()

---

---

No soucy :king:

Ca marche bien le code que tu m'a donné, j'essayais juste d'optimiser ton code.

Finalement j'ai opté pour :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Declare Function GetTickCount& Lib "kernel32" ()   Public Function Duree_Execution(debut As Double, fin As Double) As String   Dim duree As Double   Dim min As Integer Dim sec As Integer Dim ms As Integer   duree = fin - debut   min = Int(duree / 1000 / 60) sec = Int((duree / 1000) - (min * 60)) ms = duree - (sec * 1000) - (min * 1000 * 60)   Duree_Execution = min & ":" & Right("00" & sec, 2) & ":" & Right("000" & ms, 3)   End Function

---

Appel :

Code:

---

1 2 3 4 5

g_debut = GetTickCount& ' Fonction dont on veut mesurer le temps d'execution g_fin = GetTickCount&   MsgBox Duree_Execution(g_debut, g_fin)

---

Avec g_debut et g_fin en variables globales.

Faut écrire g_debut = ... , et g_fin = .... a chaque fois, mais bon vu que le passage de fonction en argument d'une fonction ne marche pas comme je le voulais, ca fera l'affaire.

Merci encore,

Avalon, c'est beau ! :mouarf:
Si c'est résolu, un peti clic sur résolu et ce sera résolu ;)

Citation:

---

Envoyé par ouskel'n'or

Avalon, c'est beau ! :mouarf:
Si c'est résolu, un peti clic sur résolu et ce sera résolu ;)

---

C'est plus que beau Avalon, c'est culte... :king: Et la B.O. ...