Note: The other languages of the website are Google-translated. Back to English

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.

1Cliquez sur 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 "Accueil»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 Accueil 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éeplus
  • 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 gammesplus
  • 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 cellulesplus
  • 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 PDFplus
  • 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
Commentaires (30)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour ce post, il m'a été très utile. Cependant, existe-t-il un moyen de modifier le code pour qu'il ne s'arrête pas lorsqu'une cellule est en cours de modification ? Idéalement, j'aimerais appuyer sur "Démarrer", apporter un certain nombre de modifications à une plage de cellules sur le même onglet, puis appuyer sur "Arrêter" pour le temps total écoulé. Tout conseil sur ce sujet serait grandement apprécié!
Ce commentaire a été minimisé par le modérateur sur le site
avez-vous déjà compris celui-ci? J'ai moi aussi besoin de faire fonctionner le minuteur pendant que d'autres modifications sont apportées dans la même feuille de calcul. Merci. Mike
Ce commentaire a été minimisé par le modérateur sur le site
Ce fut une grande aide et très facile à suivre les étapes.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai essayé de créer le chronomètre en utilisant les mêmes codes dans Forms. Le chronomètre démarre parfaitement mais ne s'arrête pas. S'il vous plaît suggérer comment reproduire la même chose dans les formulaires
Ce commentaire a été minimisé par le modérateur sur le site
Essayez le chronomètre XNote.
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de faire en sorte que la minuterie compte vers le haut ou vers le bas jusqu'à une heure spécifique ? Je veux conserver les boutons de démarrage, d'arrêt et de réinitialisation, mais j'en ai besoin pour compter jusqu'à une minute une seconde seulement, une fois que j'appuie sur le démarrage. Ou comptez à rebours d'une minute une seconde à zéro (01:01). Merci pour ton aide!
Ce commentaire a été minimisé par le modérateur sur le site
Salut, Mélissa,
si vous avez besoin de créer un compte à rebours dans la feuille de calcul, l'article suivant peut vous aider !
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
Ce commentaire a été minimisé par le modérateur sur le site
Salut,

J'ai vu cet article, mais j'ai besoin qu'il ressemble exactement au chronomètre sur cette page, mais j'ai besoin qu'il compte à rebours d'une minute à une seconde. J'ai besoin qu'il s'affiche sous forme de chronomètre, mais fonctionne comme un compte à rebours. D'autres conseils ?


Merci d'avoir répondu!
Ce commentaire a été minimisé par le modérateur sur le site
C'est pour un tableau de bord que nous avons conçu dans Excel.
Ce commentaire a été minimisé par le modérateur sur le site
Super, mais est-il possible de faire tourner 2 horloges dans la même feuille ? J'ai créé une deuxième horloge avec de nouveaux boutons de démarrage, d'arrêt et de réinitialisation, mais lors du démarrage de la deuxième horloge, la première s'arrête....
Ce commentaire a été minimisé par le modérateur sur le site
même ici pouvez-vous trouver un remède à cela
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour les amis,
Cette méthode s'applique uniquement à un ensemble de boutons dans une feuille de calcul.
S'il y a d'autres bonnes idées, veuillez commenter ici.
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible d'arrêter automatiquement la minuterie lorsque l'écran se verrouille et de démarrer la minuterie automatiquement lorsque nous déverrouillons l'ordinateur ?
Ce commentaire a été minimisé par le modérateur sur le site
Existe-t-il un moyen de réinitialiser le compteur à zéro tout en continuant à le faire fonctionner ? C'est à dire. Lorsque j'appuie sur Reset, je ne veux pas avoir à appuyer à nouveau sur Start pendant que le temps passe.
Ce commentaire a été minimisé par le modérateur sur le site
Salut, j'utilise ce bouchon mais assez souvent les chiffres dans la cellule d'affichage ("C2") commencent à s'éteindre et à s'éteindre - ils montrent des signes moins, les chiffres sont incorrects et le compte est perdu. Cela se produit généralement après environ une heure ou plus, mais parfois même avant une heure. Est-ce un bug courant ? et si oui, y a t'il un moyen de le réparer ? J'ai supprimé le .00 (c'est-à-dire les millisecondes) du code en effaçant simplement le : & "." & Format(0, "00") ligne où qu'elle apparaisse - cela a-t-il quelque chose à voir avec ce problème ?
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour votre astuce, il fonctionnait bien, mais lorsque j'ai entré des données dans cette feuille, il a cessé de fonctionner, nous en avons besoin pour continuer à fonctionner pendant un certain temps.
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Nhoeun,
Peut-être n'est-il pas un bon moyen de résoudre votre problème. Lorsque vous modifiez une cellule, cela interrompra la macro en cours d'exécution.
Si vous avez une autre bonne méthode, veuillez commenter ici!
Merci !
Ce commentaire a été minimisé par le modérateur sur le site
SALUT. J'ai créé le chronomètre, mais je dois pouvoir enregistrer les différents intervalles entre le démarrage et l'arrêt pour pouvoir les refléter sous forme d'étude de temps et de mouvement. Des conseils sur la façon de faire cela?
Ce commentaire a été minimisé par le modérateur sur le site
Toutes les étapes effectuées, mais en cliquant sur le bouton de démarrage, le message d'erreur "Impossible d'exécuter la macro "'file.xlsm'! CommandButton1". La macro peut ne pas être disponible dans ce classeur ou toutes les macros peuvent être désactivées.". Toutes les macros ont été activées, la macro est dans Module1. REMARQUE : J'utilise Office 2019 pour Mac, ce qui pourrait poser un problème...
Ce commentaire a été minimisé par le modérateur sur le site
Que diriez-vous d'ajouter la fonctionnalité "+10s" et "2x Speed" dans ce code ?
Ce commentaire a été minimisé par le modérateur sur le site
est 'timer' une variable ici? ne vois pas sa pertinence dans le code.
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible de faire en sorte que le compteur ne compte que les secondes ?
Alors quand il atteint 59 secondes, il continue avec 60, 61, 62, 63....
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour
J'ai suivi les étapes, mais je n'arrive pas à obtenir une heure pour apparaître dans la cellule de la minuterie. J'ai copié le code mais puis-je vérifier1. Que les numéros de ligne ne sont pas nécessaires ou le sont-ils2. Que j'ai mis le code dans le module 1 pas sheet1 ou This workbook3. Devrait-il y avoir une macro répertoriée dans la liste des macros après avoir fait tout cela - la mienne ne le fait pas.
Merci
Ce commentaire a été minimisé par le modérateur sur le site
Salut, Janice, vous devez mettre le code dans votre module de feuille active à l'étape 5.
5. Et puis, cliquez avec le bouton droit sur l'onglet de la feuille de calcul en cours et choisissez Afficher le code, dans la fenêtre contextuelle Microsoft Visual Basic pour Applications, veuillez copier et coller le code suivant dans le module.

Et vous devriez changer le nom du bouton pour le vôtre.
Remarque : Dans le code ci-dessus, C2 est la cellule où le temps du chronomètre sera inséré, et le Bouton de commande1, Bouton de commande2, Bouton de commande3 sont les noms des boutons, vous pouvez afficher le nom exact du bouton dans la zone Nom.

Veuillez les vérifier, merci!
Ce commentaire a été minimisé par le modérateur sur le site
C'est génial ! Merci, Chris H
Ce commentaire a été minimisé par le modérateur sur le site
Est-il possible d'utiliser une liste déroulante ou une sélection déroulante pour démarrer et arrêter l'horloge
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, j'ai voulu insérer 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?MerciHenry.
Ce commentaire a été minimisé par le modérateur sur le site
Salut! Merci pour cela, comment puis-je faire en sorte qu'il remplisse le temps dans les cellules suivantes, ex. heure de démarrage/d'arrêt pour la cellule C2, puis une heure de démarrage/d'arrêt différente pour la cellule c3, c4, c5, etc. 
Il n'y a pas encore de commentaires postés ici
TÉLÉCHARGER PLUS
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés