Bonjour,=20
je souhaite compter du temps avec excel.
c'est =E0 dire, ouvrir une cellule qui d=E9marrera un=20
compteur temps,
puis re-cliquer sur cette m=EAme cellule pour arreter et=20
afficher le temps passer.
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
François
Bonjour, je souhaite compter du temps avec excel. c'est à dire, ouvrir une cellule qui démarrera un compteur temps, puis re-cliquer sur cette même cellule pour arreter et afficher le temps passer.
Bonjour,
je souhaite compter du temps avec excel.
c'est à dire, ouvrir une cellule qui démarrera un
compteur temps,
puis re-cliquer sur cette même cellule pour arreter et
afficher le temps passer.
Merci pour la solution.
Bonjour,
As-tu regardé là http://www.excelabo.net/xl/tempo.php s'il n'y avait pas
ce dont tu as besoin ?
Bonjour, je souhaite compter du temps avec excel. c'est à dire, ouvrir une cellule qui démarrera un compteur temps, puis re-cliquer sur cette même cellule pour arreter et afficher le temps passer.
Bonjour Voici une façon de procéder (ici le temps écoulé s'affiche en A1). Pour démarrer le compteur il faut lancer la macro DemarreCalculTps Pour l'arrêter il faut exécuter ArretCalculTps 'Code à placer dans un module Dim ok As Boolean Sub DemarreCalculTps() ok = True Range("A1").Value = TimeValue("00:00:00") Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour" End Sub Sub mettre_a_jour() If ok Then Range("A1").Value = [A1] + TimeSerial(0, 0, 1) Range("A1").NumberFormat = "hh:mm:ss" Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour" End If End Sub Sub ArretCalculTps() ok = False End Sub
Cordialement Pascal
"Madou TOURE" a écrit dans le message de news: 161f01c4f631$941e4a60$ Bonjour, je souhaite compter du temps avec excel. c'est à dire, ouvrir une cellule qui démarrera un compteur temps, puis re-cliquer sur cette même cellule pour arreter et afficher le temps passer.
Merci pour la solution.
Bonjour
Voici une façon de procéder (ici le temps écoulé s'affiche en A1).
Pour démarrer le compteur il faut lancer la macro
DemarreCalculTps
Pour l'arrêter il faut exécuter
ArretCalculTps
'Code à placer dans un module
Dim ok As Boolean
Sub DemarreCalculTps()
ok = True
Range("A1").Value = TimeValue("00:00:00")
Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
End Sub
Sub mettre_a_jour()
If ok Then
Range("A1").Value = [A1] + TimeSerial(0, 0, 1)
Range("A1").NumberFormat = "hh:mm:ss"
Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
End If
End Sub
Sub ArretCalculTps()
ok = False
End Sub
Cordialement
Pascal
"Madou TOURE" <madout@free.fr> a écrit dans le message de news:
161f01c4f631$941e4a60$a401280a@phx.gbl...
Bonjour,
je souhaite compter du temps avec excel.
c'est à dire, ouvrir une cellule qui démarrera un
compteur temps,
puis re-cliquer sur cette même cellule pour arreter et
afficher le temps passer.
Bonjour Voici une façon de procéder (ici le temps écoulé s'affiche en A1). Pour démarrer le compteur il faut lancer la macro DemarreCalculTps Pour l'arrêter il faut exécuter ArretCalculTps 'Code à placer dans un module Dim ok As Boolean Sub DemarreCalculTps() ok = True Range("A1").Value = TimeValue("00:00:00") Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour" End Sub Sub mettre_a_jour() If ok Then Range("A1").Value = [A1] + TimeSerial(0, 0, 1) Range("A1").NumberFormat = "hh:mm:ss" Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour" End If End Sub Sub ArretCalculTps() ok = False End Sub
Cordialement Pascal
"Madou TOURE" a écrit dans le message de news: 161f01c4f631$941e4a60$ Bonjour, je souhaite compter du temps avec excel. c'est à dire, ouvrir une cellule qui démarrera un compteur temps, puis re-cliquer sur cette même cellule pour arreter et afficher le temps passer.