Chronométrer chaque action d'une macro

Hello! Hello !

Je me demandais si il était possible, au sein même d'une macro, de chronométrer chaque exécution qu'elle fait.

Par exemple :

Copier les données d'onglets dans un onglet : elle calcule à la fin où elle dit : 10 secondes ! ou 1 minutes ou 5 minutes !

Puis elle passe ensuite ce qui suit dans l'écriture comme

Changer le nom des lignes : elle calcule à la fin où elle dit : 10 secondes ! ou 1 minutes

Puis elle passe à la suite etc. etc.

Est il possible d'insérer un code où on veut qu'elle veut qu'elle se chronomètre et qu'elle nous le dise quelque part ?

Voili voilou !

Merci !

Bonjour,

Sub MesureTempsProcedure()

Dim HeureDebut, HeureFin, TempsTotal

    HeureDebut = Timer

    ' Suite du code

    HeureFin = Timer
    TempsTotal = HeureFin - HeureDebut

    Debug.Print "Temps total : " & Round(TempsTotal, 0) & " seconde(s)"

End Sub

Il suffit d'insérer des lignes HeureFin et de restituer le temps total avec des Debug.Print, à chaque fin de procédure.

Ok merci ! J'essaie ça demain !