Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S'inscrire  \/ 
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 calcul, 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 de démarrage 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 vous expliquer comment créer un chronomètre simple et pratique dans Excel.

doc créer un chronomètre 1

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


Créez 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 suivre 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 un 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, veuillez cliquer Développeur > Propriétés, Dans le Propriétés boîte de dialogue, entrez la nouvelle légende "Démarrer»Pour ce bouton dans la zone de texte à côté de Légende, voir les captures d'écran:

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

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

doc créer un chronomètre 5

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

Deuxièmement, créez un code VBA.

5. Et puis, cliquez avec le bouton droit sur l'onglet de la feuille de calcul en cours et choisissez Voir le code, dans le sauté Microsoft Visual Basic pour applications , veuillez copier et coller 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 un chronomètre 6

Notes: Dans le code ci-dessus, C2 est la cellule dans laquelle l'heure du chronomètre sera insérée, et le Bouton de commande1, Bouton de commande2, Bouton de commande3 sont les noms des boutons, vous pouvez afficher le nom exact du bouton à partir du Zone Nom, voir capture d'écran:

doc créer un chronomètre 7

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

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

doc créer un chronomètre 8

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

doc créer un chronomètre 9


Démo: créez un chronomètre avec trois boutons en utilisant le code VBA


Les meilleurs outils de productivité de bureau

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 e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • 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 par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets 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 des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
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.
    carol · 2 months ago
    Hi! Thank you for this, how do I make it so it populates time in subsequent cells, ex. start/stop time for cell C2, then a different start/stop time for cell c3, c4, c5 etc 
  • To post as a guest, your comment is unpublished.
    Henry · 5 months ago
    Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, déterminer le temps d'utilisation du fichier. La macro se lance mais bloque l'utilisation du fichier.
    Comment faire pour utiliser votre chronomètre en même temps que d'autres codes VBA?
    Merci
    Henry.
  • To post as a guest, your comment is unpublished.
    JGuy · 7 months ago
    Is it possible to use a combobox or a dropdown selection to start and stop the clock

  • To post as a guest, your comment is unpublished.
    Chris H · 11 months ago
    This is brilliant! Thanks, Chris H
  • To post as a guest, your comment is unpublished.
    Janice McWilliam · 1 years ago
    Hello

    Have followed the steps but cannot get a time to appear in the timer cell. I have copied the code but can i check
    1. That the line numbers are not needed or are they
    2. That I put the code into module 1 not sheet1 or This workbook
    3. Should there be a macro listed in the macro list after doing all this - mine doesn't.

    Thanks
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hi, Janice,
      You should put the code into your active sheet module as step 5.

      5. And then, right click the current worksheet tab, and choose View Code, in the popped out Microsoft Visual Basic for Applications window, please copy and paste the following code into the Module.

      And you should change the button name to your own.

      Note: In the above code, C2 is the cell where the stopwatch time will be inserted, and the CommandButton1, CommandButton2, CommandButton3 are the button names, you can view the exact button name from the Name Box.

      Please check them, thank you!
  • To post as a guest, your comment is unpublished.
    Allan · 1 years ago
    Is it possible to get the counter to count only seconds?
    So when it reaches 59 seconds, it continues with 60, 61, 62, 63 ....
  • To post as a guest, your comment is unpublished.
    Jeff · 1 years ago
    is 'timer' a variable here? dont see its relevance in the code.

  • To post as a guest, your comment is unpublished.
    ALCA · 1 years ago
    How about adding "+10s" & "2x Speed" feature in this code?

  • To post as a guest, your comment is unpublished.
    Cy · 1 years ago
    Done all the steps but clicking the start button give error message "Cannot run the macro "'file.xlsm'!CommandButton1". The macro may not be available in this workbook or all macros may be disabled.". All macros have been enabled, the macro is in Module1. NOTE: I'm running Office 2019 for Mac so that could be a problem....
  • To post as a guest, your comment is unpublished.
    Pierre · 2 years 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 · 2 years 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 · 2 years 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 years 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 · 4 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 · 4 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ø · 4 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 · 4 years ago
      same here can you able to find cure of this
      • To post as a guest, your comment is unpublished.
        skyyang · 4 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.
    melissastranko@gmail.com · 4 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.
      skyyang · 4 years ago
      Hi, Melissa,
      if you need to create a countdown timer in worksheet, may may the the following article can help you!
      https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
      • To post as a guest, your comment is unpublished.
        melissastranko@gmail.com · 4 years ago
        hello,

        I did see that article, but i need it to look exactly like the stop watch on this page, but i need it to only count down from one minute one second. I need it to show in stopwatch form, but work as a count down. Any further advice?


        thank you for replying!
  • To post as a guest, your comment is unpublished.
    Guest · 4 years ago
    Try XNote Stopwatch.
  • To post as a guest, your comment is unpublished.
    Prashant · 4 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. · 5 years ago
    This was a great help and very easy to follow the steps.
  • To post as a guest, your comment is unpublished.
    Gnarlsagan · 5 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!
    • To post as a guest, your comment is unpublished.
      Mike · 1 years ago
      did you ever figure this one out? I too need to keep the timer running while other changes are being made in the same spreadsheet. thanks. Mike