Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment créer un chronomètre dans une feuille de calcul Excel?

S'il y a un chronomètre dans votre feuille de travail, vous saurez l'heure de terminer un travail. Comment pouvez-vous créer un chronomètre dans une feuille avec un bouton Démarrer, Arrêter et Réinitialiser comme illustré ci-dessous? Si vous cliquez sur le bouton Démarrer, l'heure commencera, si vous cliquez sur le bouton Arrêter, l'heure s'arrêtera et le bouton Réinitialiser peut vous aider à réinitialiser l'heure. Cet article, je vais parler de la façon de créer un chronomètre simple et pratique dans Excel.

doc créer chronomètre 1

Créer un chronomètre avec trois boutons en utilisant le code VBA


Ajouter un nombre d'heures / minutes / secondes à la date-heure:

Avec Kutools for Excel's Ajouter heures / minutes / secondes à ce jour fonctionnalités, vous pouvez rapidement ajouter ou soustraire un nombre d'heures, minutes ou secondes à un dateime. Cliquez pour télécharger et tester gratuitement Kutools for Excel maintenant!

doc créer chronomètre 10

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!


Créer un chronomètre avec trois boutons en utilisant le code VBA

Pour créer un chronomètre avec trois boutons, Démarrer, Arrêter et Réinitialiser, veuillez faire les étapes suivantes une par une.

Tout d'abord, insérez trois boutons de commande.

1. Cliquez Développeur > insérer > Bouton de commande, voir capture d'écran:

doc créer chronomètre 2

2. Ensuite, faites glisser la souris pour dessiner un bouton, après avoir inséré le bouton, vous pouvez changer la légende du bouton, s'il vous plaît cliquez Développeur > Propriétés, Dans le Propriétés dialogue, entrez la nouvelle légende "Début"Pour ce bouton dans la zone de texte à côté du Légende, voir les captures d'écran:

doc créer chronomètre 3  2 doc créer chronomètre 4

3. Répétez les deux étapes ci-dessus pour insérer deux autres boutons et les légender comme "Arrêter" et "Réinitialiser", Voir capture d'écran:

doc créer chronomètre 5

4. Après avoir inséré les boutons, vous devez quitter le mode de conception en cliquant Développeur > Mode de conception.

Deuxièmement, créez un code VBA.

5. Et puis, faites un clic droit sur l'onglet de la feuille de calcul en cours, et choisissez Voir le code, dans le sauté Microsoft Visual Basic pour applications fenêtre, copiez et collez le code suivant dans le Module:

Code VBA: Créer un chronomètre:

Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
  StartTime = Timer
  PauseTime = 0
  LastTime = 0
Else
  StartTime = 0
  PauseTime = Timer
End If
StartIt:
  DoEvents
  If StopIt = True Then
    LastTime = TotalTime
    Exit Sub
  Else
    FinishTime = Timer
    TotalTime = FinishTime - StartTime + LastTime - PauseTime
    TTime = TotalTime * 100
    HM = TTime Mod 100
    TTime = TTime \ 100
    hh = TTime \ 3600
    TTime = TTime Mod 3600
    MM = TTime \ 60
    SS = TTime Mod 60
    Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
    If ResetIt = True Then
      Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
      LastTime = 0
      PauseTime = 0
      End
    End If
    GoTo StartIt
  End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  StopIt = True
End Sub
Private Sub CommandButton3_Click()
  Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
  LastTime = 0
  ResetIt = True
End Sub

doc créer chronomètre 6

Note: Dans le code ci-dessus, C2 est la cellule où le temps chronomètre sera inséré, et le CommandButton1, CommandButton2, CommandButton3 sont les noms des boutons, vous pouvez voir le nom exact du bouton Zone Nom, voir capture d'écran:

doc créer chronomètre 7

Troisièmement, formatez la cellule de temps chronomètre.

6. Ensuite, vous devez formater la cellule de temps en tant que Texte format, et vous pouvez changer la taille de la cellule, la police, la couleur de la police, l'arrière-plan, etc comme vous en avez besoin, voir capture d'écran:

doc créer chronomètre 8

7. Après avoir fini les étapes ci-dessus, à partir de maintenant, lorsque vous cliquez Début bouton, l'heure commencera maintenant, et cliquez Arrêter bouton, il va arrêter le temps, le Réinitialiser le bouton réinitialisera l'heure, voir capture d'écran:

doc créer chronomètre 9


Demo: Créer un chronomètre avec trois boutons en utilisant le code VBA



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Nhoeun Nou · 1 months ago
    Thank for your tip, It was running smoothly but when I input any data in this sheet It's stopped running, We need it keep running awhile input data How we can fix this problem?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 months ago
      Hello, Nhoeun,
      May be there in not a good way for solving your problem. When you edit a cell, it will interrupt the currently executed macro.
      If you have any other good method, please comment here!
      Thank you!
  • To post as a guest, your comment is unpublished.
    Yuval · 3 months ago
    Hi, I'm using this stopper but quite often the numbers in the display cell ("C2") start fricking out and go off - they show minus signs, the digits are incorret and the count is lost. It usually happens after about an hour or more but sometimes even before an hour goes by. Is this a common bug? and if yes, is there a way to fix it? I did remove the .00 (i.e. the miliseconds) from the code by simply erasing the: & "." & Format(0, "00") line wherever it appears - does that have to do anything with this problem?
  • To post as a guest, your comment is unpublished.
    Damian · 1 years ago
    Is there any way to have the timer reset the count to zero but still keep the timer running? Ie. When I press Reset, I don't want to have to press Start again for the time to tick up.
  • To post as a guest, your comment is unpublished.
    Vivek Nath · 1 years ago
    Is it possible to automatically stop the timer when screen locks and start the timer automatically when we unlock the computer?
  • To post as a guest, your comment is unpublished.
    Tor-Bjørn Øverbø · 1 years ago
    Great, but is it possible to run 2 clocks in the same sheet? have made a second clock with new start, stop and reset buttom, but when starting the second clock the first one stops....
    • To post as a guest, your comment is unpublished.
      Vishal Sharma · 1 years ago
      same here can you able to find cure of this
      • To post as a guest, your comment is unpublished.
        skyyang · 1 years ago
        Hello, friends,
        This method is only applied to one set of buttons in a worksheet.
        If there are other good ideas, please comment here.