XL 2010 Affichage Timer juste min - sec

job75

XLDnaute Barbatruc

• 11 Février 2022

• #2

Bonjour herve62,

Par exemple avec Now :

VB:

dim t#
t = Now
'---
MsgBox "Exécution en " & Format(Now - t, "mm:ss")

A+

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2022

• #3

Merci bien Job
Mais ne peux t-on pas pousser jusqu'à afficher x "Min." y "Sec." ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Février 2022

• #4

Bon le mm ça n'allait pas, ceci est bon :

Code:

Dim t#
t = Now
'---
MsgBox "Exécution en " & Mid(Format(Now - t, "hh:mm:ss"), 4)

ou ceci :

VB:

Dim t#
t = Now
'---
t = Now - t
MsgBox "Exécution en " & Minute(t) & " minute(s) et " & Second(t) & " seconde(s)"

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2022

• #5

Le principe était bon mais là le format d'affichage est nettement mieux !! c'est ce que je rechrechais
Encore merci !

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Février 2022

• #6

Juste pour expliquer pourquoi ma proposition du post #2 ne va pas.

Quant la durée est de 5 secondes la MsgBox affiche 12:05.

C'est dû au fait que VBA considère que "mm" doit être un mois et non pas des minutes.

On vérifiera qu'en VBA Month("00:05") renvoie 12 (mois de décembre).

Alors que sur Excel MOIS("00:05") renvoie 1 (mois de janvier)..

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 11 Février 2022

• #7

JOB : Tu es vraiment un grand fouineur perfectionniste pire que moi , comme là ou je demande plus de détail dans mon affichage mais je ne savais pas faire et là l'affichage est plus présentable à mon goût !!
Bon Week end !

PS : j'aime bien tes explications quand je comprends .... comme ici !

 

Vote positif 0 Vote négatif