calculer le temps d'execution

Comment on peut calculer le temps d'execution de ces deux procedure

Code:

---

1 2 3 4

With Worksheets(1).Range("a1:a100") Set s = .Find(10) Cells(1, 3) = s.Address End With

---

et

Code:

---

1 2 3 4 5 6 7 8

With Worksheets(1) For Each s In .Range("a1:a100") If s = 10 Then Cells(1, 3) = s.Address Exit Sub End If Next s End With

---

bonsoir,

regarde la fonction api gettickcount
voir aussi "chronometre" de ouskel 'n 'or dans les contributions

Bonsoir
au debut de la procedure

Code:

---

temp = Timer

---

avant de sortir de la proc

Code:

---

MsgBox Timer - temp

---

Bonne soirée.

Salut

Code:

---

1 2 3 4 5 6 7 8 9 10 11

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 QueryPerformanceCounter Debut ..... QueryPerformanceCounter Fin QueryPerformanceFrequency Freq ..... Application.StatusBar = Format(((Fin - Debut) / Freq), "0.00")

---

Bonjour,

Contente-toi de relever l'heure de début, celle de fin... et de faire la différence (par datediff) en secondes.
Bien évidemment, tu vas me dire qu'une durée en secondes est peu précise...

Alors ?

on fait tout bêtement chaque traitement un grand nombre de fois (10000 fois par exemple), puis on divise la durée par ce nombre de fois (/10000, donc).
On atteint ainsi un résultat bien plus juste que l'approximation inévitable à 16 ou 17 ms sur une seule "passe" ...

C'est un peu comme si tu voulais peser un seul petit pois à l'aide d'une balance peu précise ===>> delta d'erreur relativement important...
Mets donc 10000 petits pois ==>> pèse ===>> divise le poids par 10000 ===>> delta d'erreur bien plus réduit.

Il va de soi que plus le nomnre d'itérations est élevé, meilleure est la précision de la conclusion. (100 000 fois valent mieux que 10 000, etc...)

Enfin ... ce n'est que mon avis ...;)

Merci à vous je vais tester ça