XL 2016 Chrono VBA minutes secondes

Goose · 4 Juin 2024

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

Oneida · 4 Juin 2024

Bonjour,

VB:

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 · 4 Juin 2024

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

patricktoulon · 4 Juin 2024

bonjour c'est simple il te faut un static

Goose · 4 Juin 2024

patricktoulon à dit:
bonjour c'est simple il te faut un static

??

patricktoulon · 4 Juin 2024

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

Dranreb · 4 Juin 2024

Bonjour.
Des affichages de temps dans ce classeur.

Goose · 4 Juin 2024

patricktoulon à dit:

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 · 4 Juin 2024

re

tu en tire quoi comme conclusion?

Goose · 5 Juin 2024

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

Goose · 5 Juin 2024

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

XL 2016 Chrono VBA minutes secondes

Goose

XLDnaute Occasionnel

Oneida

XLDnaute Impliqué

Goose

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Goose

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Pièces jointes

Goose

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Goose

XLDnaute Occasionnel

Goose

XLDnaute Occasionnel

Discussions similaires