Comment créer un chronomètre directement dans une feuille Excel ?
Si vous avez besoin d’un chronomètre dans votre feuille Excel, celui-ci vous permet de suivre précisément le temps consacré à l’exécution de vos tâches. Imaginez disposer de boutons **Démarrer**, **Arrêter** et **Réinitialiser** pour contrôler facilement votre minuteur, comme le montre la capture d’écran ci-dessous : en un clic sur **Démarrer**, le chronomètre se lance ; **Arrêter** le met en pause, et **Réinitialiser** efface entièrement le temps écoulé. Dans cet article, nous vous guidons pas à pas pour créer un chronomètre simple mais efficace dans Excel à l’aide d’un code VBA.
Créer un chronomètre avec trois boutons à l’aide d’un code VBA
Créer un chronomètre avec trois boutons à l’aide d’un code VBA
Pour créer un chronomètre équipé de trois boutons — Démarrer, Arrêter et Réinitialiser — suivez pas à pas les étapes ci-dessous.
Commencez par insérer trois boutons de commande.
1. Cliquez sur « Développeur » > « Insérer » > « Bouton de commande » (voir la capture d’écran).
2. Ensuite, faites glisser la souris pour dessiner un bouton. Une fois le bouton inséré, vous pouvez modifier son libellé : cliquez sur « Développeur » > « Propriétés ». Dans la boîte de dialogue « Propriétés », saisissez le nouveau libellé « Démarrer » dans le champ situé à côté de « Libellé » (voir les captures d’écran).
 |  |  |
3. Répétez les deux étapes précédentes pour insérer les deux autres boutons, puis nommez-les respectivement « Arrêter » et « Réinitialiser » (voir la capture d’écran).
4. Une fois les boutons insérés, quittez le mode Création en cliquant sur « Développeur » > « Mode Création ».
Ensuite, créez un code VBA.
5. Cliquez ensuite avec le bouton droit sur l’onglet de la feuille de calcul active, puis sélectionnez « Afficher le code ». Dans la fenêtre « Microsoft Visual Basic pour Applications » qui s’ouvre, copiez-collez le code suivant dans la « Feuille de code » :
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
Remarque : dans le code ci-dessus, « C2 » est la cellule où sera affiché le temps du chronomètre, et « CommandButton1 », « CommandButton2 » et « CommandButton3 » sont les noms des boutons. Vous pouvez vérifier le nom exact de chaque bouton dans la « Zone de noms », comme illustré dans la capture d’écran :
Enfin, mettez en forme la cellule qui affiche le temps du chronomètre.
6. Vous devez ensuite appliquer le format « Texte » à la cellule contenant l’heure, puis personnaliser à votre guise la taille de la cellule, la police, la couleur du texte, l’arrière-plan, etc. (voir la capture d’écran).
7. Une fois toutes ces étapes terminées, dès maintenant : un clic sur le bouton « Démarrer » lancera le chronomètre, un clic sur « Arrêter » l’interrompra, et le bouton « Réinitialiser » remettra le temps à zéro (voir la capture d’écran).
Démo : Créer un chronomètre avec trois boutons à l’aide d’un code VBA
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels