Temps d'éxécution d'une macro

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

Merci

;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:

---

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

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

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

:yaisse2:

Ok