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 "Start"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 Start 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


Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

  • Activer l'édition par onglets et la lecture dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit le nombre de clics de souris pour vous chaque jour!
fond officetab
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.
    Pierre Roux · 2 months ago
    HI. I have created the stopwatch, but need to be able to have the various intervals between the start and stop to be saved to be able to reflect them as a time and motion study. Any tips on how to do that?
  • To post as a guest, your comment is unpublished.
    Nhoeun Nou · 8 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 · 7 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 · 10 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.
  • To post as a guest, your comment is unpublished.
    Melissa Stranko · 1 years ago
    Is there any way to get the timer to count up or down to a specific time? I want to keep the start, stop, and reset buttons, but I need it to count up to one minute one second only, once I press start. Or count down from one minute one second to zero (01:01). Thanks for your help!
  • To post as a guest, your comment is unpublished.
    Guest · 1 years ago
    Try XNote Stopwatch.
  • To post as a guest, your comment is unpublished.
    Prashant · 2 years ago
    Have tried to create the stop watch using the same codes in Forms. The timer starts perfectly fine but does not stop . Please suggest how to replicate the same in forms
  • To post as a guest, your comment is unpublished.
    Paulo G. · 2 years ago
    This was a great help and very easy to follow the steps.
  • To post as a guest, your comment is unpublished.
    Gnarlsagan · 2 years ago
    Thank you for this post, it was very helpful. However, is there a way to tweak the code to make it so the timer does not stop when a cell is being edited? Ideally I would like to hit "Start," make a number of changes to a range of cells on the same tab, and then hit "Stop" for the total time elapsed. Any advice on this would be greatly appreciated!