XL 2016 Chrono VBA minutes secondes

[Goose]

Bjr,
voici un bout de code d'un chrono que j'aimerai transformer avec un affichage en minutes et secondes !!

Sub ChronoMarche()
temps = Time
Call Chrono
End Sub

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

 

[Oneida]

Bonjour,

Sub Chrono()
    decompte = Time + TimeValue("00:00:01")
    Range("D14").Value = Format(decompte - temps - TimeValue("00:00:01"), "mm:ss")
    Application.OnTime decompte, "Chrono"
End Sub

 

[Goose]

Merci malheureusement l'affichage me donne 12:01:00 au démarrage?

 

[patricktoulon]

bonjour c'est simple il te faut un static

 

[Goose]

bonjour c'est simple il te faut un static

??

 

[patricktoulon]

ou deux variables globales

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

 

[Dranreb]

Bonjour.
Des affichages de temps dans ce classeur.

 

[Goose]

ou deux variables globales

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]

re

tu en tire quoi comme conclusion?

 

[Goose]

je vérifie mon code et je reviens vers toi !!

 

[Goose]

Apparemment j'ai du faire une erreur de saisie !!
tous fonctionne merci pour ton aide
@+