compter le temps d'exécution d'une Macro

Dranreb

XLDnaute Barbatruc

• 31 Août 2016

• #2

Bonsoir
Essayez comme ça :

VB:

MsgBox "durée du traitement: " & Format(Timer - start)/86400000, "hh"" h ""mm"" min ""ss")"

À tester.

 

Vote positif 0 Vote négatif

J

JOAN66

XLDnaute Junior

• 31 Août 2016

• #3

Bonsoir Dranreb ,
merci pour ta réponse hélas elle ne fonctionne pas , il y a une parenthèse qui ne lui plait pas . la dernière aprés ss")" "ss")"

 

Vote positif 0 Vote négatif

J

JOAN66

XLDnaute Junior

• 1 Septembre 2016

• #4

re-bonsoir Dranreb j' ai rajouté une parenthèse avant Timer et supprimer les guillemets après ss")"
la macro fonctionne mais affiche: 00 h 00 min 01 quelques soit la durée
bonne nuit Joan

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Septembre 2016

• #5

MsgBox Format(2000 / 86400000#, "hh""h ""mm"" min ""ss")
affiche 00h 00 min 02
Mais vous m'avez induit en erreur: Timer donne des secondes non de millisecondes, alors il faut plutôt diviser par 86400

 

Vote positif 0 Vote négatif

J

JOAN66

XLDnaute Junior

• 1 Septembre 2016

• #6

Bonjour Dranreb, désolé de vous avoir induit en erreur . Mon idée est de trouver une horloge ou chrono ou minuterie afin de calculer le temps du déroulement d'une Macro en secondes après son lancement
Merci
Cordialement Joan

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Septembre 2016

• #7

D'accord.
Je suppose que votre problème est donc résolu.

Vous pouvez aussi obtenir des comptages plus précis avec ces API :

VB:

Private Declare Function QueryPerformanceFrequency Lib "Kernel32" (X As Currency) As Boolean
Private Declare Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean

QueryPerformanceCounter donne un nombre d'instants élémentaires écoulés, et pour les interpréter,
QueryPerformanceFrequency donne le nombre d'instants par seconde.

 

Vote positif 0 Vote négatif

J

JOAN66

XLDnaute Junior

• 1 Septembre 2016

• #8

Merci Dranreb, à bientôt pour d'autres projets .
Joan

 

Vote positif 0 Vote négatif