XL 2016 Chrono VBA minutes secondes

Goose

XLDnaute Occasionnel
Bjr,
voici un bout de code d'un chrono que j'aimerai transformer avec un affichage en minutes et secondes !!
Code:
Sub ChronoMarche()
temps = Time
Call Chrono
End Sub
Code:
Sub Chrono()
decompte = Time + TimeValue("00:00:01")
Range("D14").Value = Format(decompte - temps - TimeValue("00:00:01"), "hh:mm:ss")
Application.OnTime decompte, "Chrono"
End Sub
pouvez vous m'aider ?
merci d'avance
 

patricktoulon

XLDnaute Barbatruc
ou deux variables globales
VB:
Dim debut
Dim quoi As Boolean
Sub demarre()
    debut = Time
    quoi = True
    chrono
End Sub
Sub arrete()
    quoi = False
    chrono
End Sub
Sub chrono()
    [d4] = Format(Time - debut, "nn:ss")
    If quoi = False Then [d4] = 0: Exit Sub
    If quoi Then Application.OnTime Now + TimeValue("00:00:01"), "chrono"
End Sub
 

Goose

XLDnaute Occasionnel
ou deux variables globales
VB:
Dim debut
Dim quoi As Boolean
Sub demarre()
    debut = Time
    quoi = True
    chrono
End Sub
Sub arrete()
    quoi = False
    chrono
End Sub
Sub chrono()
    [d4] = Format(Time - debut, "nn:ss")
    If quoi = False Then [d4] = 0: Exit Sub
    If quoi Then Application.OnTime Now + TimeValue("00:00:01"), "chrono"
End Sub
merci Patrick mais cela ne fonctionne pas ?
 

patricktoulon

XLDnaute Barbatruc
re
demo2.gif

tu en tire quoi comme conclusion?
 

Discussions similaires

Réponses
8
Affichages
911

Statistiques des forums

Discussions
315 111
Messages
2 116 340
Membres
112 720
dernier inscrit
henri marc michel