Discussion :

[Montor]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patbou]

bonsoir,

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

[Abed_H]

Bonsoir
au debut de la procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

temp = Timer

avant de sortir de la proc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Timer - temp

Bonne soirée.

[kiki29]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[ucfoutu]

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

[Montor]

Merci à vous je vais tester ça