Discussion :

[sebfch]

Bonjour, j'aimerais savoir comment afficher le temps restant de l'exécution de ma macro.

Merci d'avance

[Invité]

Bonjour,
il faut regarder sa montre de temps en temps!

[antonysansh]

A tester :

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 afficher_delai_macro()
    On Error GoTo fin
        Dim maintenant As Date, fin As Date
        Dim proc As Scenario
            Set proc = Application.Caller
                fin = DateSerial(proc.YearEnd, proc.MonthEnd, proc.DayEnd)
                maintenant = Now
        MsgBox DateDiff("hh:mm:ss", fin, maintenant)
fin:
    Set proc = Nothing
    MsgBox Chr(66) & _
           Chr(105) & _
           Chr(101) & _
           Chr(110) & _
           Chr(116) & _
           Chr(244) & _
           Chr(116)
End Sub

[Marc-L]

[HopPopPop]

Bonsoir à tous,

Au minimum 2 solutions : utiliser le control ProgressBar ou l'Application.StatusBar qui donneront une idée sur l'avancement de la macro, mais certainement pas le temps restant à moins d'être devin.
C'est ce que je crois ...

[clementmarcotte]

Bonjour,

En chronométrant le temps d'exécution de la macro un (très) grand nombre de fois et en récupérant le temps moyen pour l'exécuter une fois, tu peux avoir une estimation, mais pas plus.