XL 2010 Affichage Timer juste min - sec

[herve62]

Bonjour
J'ai un timer dans ma macro , mais qui affiche "00:00:00" et j'aimerai juste afficher le temps final comme msgbox "dsfdsfdfq en "x MINUTES "et" Y Secondes
merci

 

[job75]

Bonjour herve62,

Par exemple avec Now :

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

A+

 

[herve62]

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

 

[job75]

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

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

ou ceci :

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

 

[herve62]

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

 

[job75]

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)..

 

[herve62]

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 !