Salut!
Est-ce possible d'afficher dans une petite fenêtre de message les secondes qui passent à partir du moment où une macro cmmence son exécution jusqu'à la fin?
Dès que la macro est achevée, le chronomètre s'arrête et on a sur l'écran combien de temps en secondes la macro a pris à être exécutée.
J'ai trouvé une macro sur internet - ci-dessous - qui compte le temps d'exécution et montre à la fin combien de secondes cela a pris. Mais cela ne montre pas en "live" les secondes qui s'écoulent (comme un chronomètre).
Si c'est possible à réaliser...
Sub CalculateRunTime_Seconds()
'PURPOSE: Determine how many seconds it took for code to completely run
Dim StartTime As Double
Dim SecondsElapsed As Double
'Remember time when macro starts
StartTime = Timer
' here will be the macro to execute '
'Determine how many seconds code took to run
SecondsElapsed = Round(Timer - StartTime, 2)
'Notify user in seconds
MsgBox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation
End Sub