Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Chronomêtre...

Chronomêtre...

2 réponses
Avatar
Charby
Salut à tous,
J'aimerais savoir s'il est possible d'inclure dans une range un chrono
défilant a partir d'une heure de départ ????

au boulot...merci...Charby
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour

Dans un module:

Public ProchainChrono, Départ
Sub Demarre()
Départ = Timer()
majChrono
End Sub

Sub majChrono()
Sheets("Chrono").[A1] = Format((Timer() - Départ) / 3600 / 24,
"hh:mm:ss")
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
End Sub

Sub Arret()
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End Sub

http://boisgontierj.free.fr/fichiers/jb-ontime.zip

Cordialement JB

Salut à tous,
J'aimerais savoir s'il est possible d'inclure dans une range un chrono
défilant a partir d'une heure de départ ????

au boulot...merci...Charby


Avatar
Charby
merci JB j'suis sur l'cul...Charby



"JB" a écrit dans le message de news:

Bonjour

Dans un module:

Public ProchainChrono, Départ
Sub Demarre()
Départ = Timer()
majChrono
End Sub

Sub majChrono()
Sheets("Chrono").[A1] = Format((Timer() - Départ) / 3600 / 24,
"hh:mm:ss")
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
End Sub

Sub Arret()
On Error Resume Next
Application.OnTime ProchainChrono, Procedure:="majChrono",
Schedule:úlse
End Sub

http://boisgontierj.free.fr/fichiers/jb-ontime.zip

Cordialement JB

Salut à tous,
J'aimerais savoir s'il est possible d'inclure dans une range un chrono
défilant a partir d'une heure de départ ????

au boulot...merci...Charby