Discussion :

[Kestion100]

Bonjour, je cherche à chronométrer le déroulement d'une boucle en millisecondes mais ne trouve rien sur internet pour y parvenir.

La solution qui devrait apparemment aller serait l'utilisation de Timer en début de code puis "Timer2 - Timer" juste après mon For avec Format((Timer2 - Timer) / 86400, "hh:mm:ss,sss") or ceci me retourne systématiquement 00:00:00,000, je tente: Format....hh:mm:ss,ms et je récupère systématiquement 00:00:01,121?????

Si quelqu'un peut me dépanner, merci beaucoup

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
   Dim deb As Double, fin As Double
   deb = Timer * 1000#
         .... Procédure à chronométrer ....
   fin = Timer * 1000#
   Debug.Print fin - deb
End Sub

[MarcelG]

Bonjour,

Vu, Menhir
Une question pour une autre manière de procéder.

D'après les hypothèses de notre ami.

Si l'on considère la procédure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub essai()
 
Dim T As Single
T = Timer
'la procédure
 
Dim strdurée As String
strdurée = Format(Timer - T, "00:00:00.00")
 
End Sub

Trivialement.
L'ubound d'un Split "." sur la chaîne de caractères "strdurée" suffirait, non?

[Menhir]

Sincèrement, pour obtenir une valeur en millisecondes, je ne vois pas l'intérêt d'utiliser la fonction Format...

[Kestion100]

Si justement, je voudrais récupérer un format hh:mm:ss.sss plus lisible, ton code renvoie une valeur décimale peu parlante pour moi

[Menhir]

Si justement, je voudrais récupérer un format hh:mm:ss.sss plus lisible, ton code renvoie une valeur décimale peu parlante pour moi

De deux choses l'une :
soit la valeur renvoyée est inférieure à la minute et dans cas, je ne vois pas ce qu'apporte de mettre systématiquement devant "00:00:"
soit la valeur renvoyée est supérieure à la minute et dans ce cas, la précision de la milliseconde semble tout à fait disproportionnée.

Dans tous les cas, je ne trouve pas de 12345 soit "moins parlant" que 00:00:12.345.

Mais... bon... les goûts et les couleurs...

[MarcelG]

Rien n'est plus décevant de se montrer poli, aimable et de se faire envoyer sur les roses.
Et ce sans que l'on daigne se pencher sur la moindre réponse.
Pas grave...(je laisse les lecteurs juger)

Kestion,

Si tu utilises ce processus, tu peux inclure au format des libellés heures minutes, à conditions d'utiliser des doubles doubles quottes.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"00""heures""00""minutes""00.00""secondes"""