Discussion :

[PiliSql]

Comment faire pour compter le temps d'éxécution d'une macro.

Merci

[Didier Gonard]

;Bonjour,

tu peux te servir de la fonction timer. Je te mets en exemple un code que j'avais fait pour mettre en évidence l'incidence du calcul auto sur une méthode de copie sur 60 000 lignes. Juste pour le contexte, le code n'est rien ici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub PourTestSansCalculAuto()
Dim TP1 As Single
Dim TP2 As Single
TP1 = Timer
Application.Calculation = xlCalculationManual
Range("A1").CurrentRegion.Copy
Sheets(2).Select
Range("A1").Select
ActiveSheet.Paste
'Application.Calculation = xlCalculationAutomatic
TP2 = Timer
MsgBox " fait en " & TP2 - TP1 & "secondes"
Range("A1").Select
Sheets(1).Activate
Application.CutCopyMode = False
MsgBox "pensez à rétablir le calcul auto !!!!" & Chr(10) & "Procédure dans module dTest... ou Menu Outils, options"
'Pensez à rétablir le calcul auto, cf procédure ci-dessous
End Sub

Ps : Timer, fonction :Renvoie une valeur de type Single représentant le nombre de secondes écoulées depuis minuit. (précis au 1/100 sur PC, à la seconde sous Mac).

cordialement,

Didier

[patbou]

bonsoir

ousk'el n or avais deja ouvert ce sujet, je crois que tu peux la trouver dans les contributions

essaye de faire une recherche sur le forum avec la fonction getickcount

http://vb.developpez.com/faq/?page=Routines

[PiliSql]

Merci à vous deux Ormonth et Patbou.
Nikel c'est ce que je cherchais.



Ok