Incrémenter un compteur

Bonjour,

Dans mon fichier Excel, j'ai une macro qui me permet de démarrer un compteur d'heure, mettre en pause et actualiser le compteur.

Sauf que lorsque je stop le compteur et que je veut le redémarrer, il se remet a zéro.

Mon problème est que je voudrait qu'il garde la valeur précédente pour repartir et non de zéro.

Dim ok As Boolean
 Sub DemarreCalculTps()
 ok = True
 Worksheets("Feuil1").Range("A2").Value = TimeValue("00:00:00")
 Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
 End Sub
 Sub mettre_a_jour()
 If ok Then
 Worksheets("Feuil1").Range("A2").Value = [A2] + TimeSerial(0, 0, 1)
 Worksheets("Feuil1").Range("A2").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

Kevin

Bonjour,

elle fait quoi cette ligne à ton avis ?

Worksheets("Feuil1").Range("A2").Value = TimeValue("00:00:00")

façon bien compliquée d'écrire =0 d'ailleurs

eric

Bonjour,

Dim ok As Boolean
 Sub DemarreCalculTps()
 ok = True
 'Worksheets("Feuil1").Range("A2").Value = TimeValue("00:00:00")
 Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
 End Sub
 Sub mettre_a_jour()
 If ok Then
 Worksheets("Feuil1").Range("A2").Value = [A2] + TimeSerial(0, 0, 1)
 Worksheets("Feuil1").Range("A2").NumberFormat = "hh:mm:ss"
 Application.OnTime Now + TimeValue("00:00:01"), "mettre_a_jour"
 End If
 End Sub
 Sub ArretCalculTps()
 ok = False
 End Sub

Bonjour,

J'aimerai savoir qu'elle est l'objectif de ce compteur ? SVP.

Merci, Cdlt.

Bonjour,

Merci de vos réponses.

Je pensais qu'en écrivant "TimeValue("00:00:00")" le compteur allait commencer de zéro et qu'il y aurait aucune influence.

l'objectif de ce compteur est de compteur les heures de fonctionnement d'un système.

Cordialement

Kevin

kevin-statham a écrit :

l'objectif de ce compteur est de compteur les heures de fonctionnement d'un système.

Je trouve cette procédure un peu lourde pour cela, enfin de mon point de vue. Ne serait-il pas mieux de :

• attribuer la valeur "now()" à une variable, au moment de l'ouverture du système ou du déclenchement en cliquant sur un bouton (au bon vouloir;
• attribuer la valeur "now()" à une seconde variable au moment de la fermeture;
• Faire la différence (entre les deux variables) et la renseigner dans la cellule A2 (en l'additionnant à l'ancienne valeur de cette même cellule) ?

Je trouve que actualiser le compteur toute les secondes sa ralenti le classeur, je ne sais pas sur qu'elle volume de données tu travail mais sa pourrait être non négligeable.

Cdlt,

Je pensais qu'en écrivant "TimeValue("00:00:00")" le compteur allait commencer de zéro et qu'il y aurait aucune influence.

Pourquoi le mettre à 0 si tu ne veux pas (?!?)

J'aime ce genre de fil..