Comment insérer un minuteur décompte dans une feuille Excel

Excel n'a pas de fonction native pour inclure un minuteur décompte. Cependant, avec le langage de programmation Visual Basic pour Applications (VBA), il est possible d'écrire une macro simple pour effectuer cette fonction. Cet article montre comment créer une macro permettant un décompte jusqu'à 12 heures, utile pour la gestion du temps dans une feuille de calcul.

Formater la cellule du minuteur

Étape 1

Dans une nouvelle feuille ouverte, allez en cellule A1. Ce sera l'emplacement du minuteur d'exemple.

Étape 2

Clic droit sur la cellule A1 → Format de cellule.

Étape 3

Sélectionnez Heure dans la liste Catégorie et choisissez un format heures:minutes:secondes. Cliquez OK.

Créer la macro

Étape 1

Accédez à l'éditeur Visual Basic avec ALT+F11. Cliquez Insertion dans la barre de menus → Module.

Étape 2

Entrez le code suivant dans la fenêtre Module1 :

Dim gCount As Date
Sub Timer()
    gCount = Now + TimeValue("00:00:01")
    Application.OnTime gCount, "EndMessage"
End Sub
Sub EndMessage()
    Dim xRng As Range
    Set xRng = Application.ActiveSheet.Range("A1")
    xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
    If xRng.Value <= 0 Then
        MsgBox "Décompte terminé."
        Exit Sub
    End If
    Call Timer
End Sub

Vous pouvez copier-coller ce code ou le taper ligne par ligne. L'éditeur VBA applique le formatage nécessaire.

Étape 3

Réduisez la fenêtre VBA (icône « - » en haut à droite). Fichier → Enregistrer sous. Choisissez un emplacement. Donnez un nom au classeur et sélectionnez Classeur Excel avec macros (*.xlsm) dans « Type de fichier ». Cliquez Enregistrer et revenez au classeur.

Utiliser le minuteur

Étape 1

Cliquez sur la cellule A1 et entrez 0:3:0, puis Entrée. Cela règle 0 heure, 3 minutes, 0 seconde.

Étape 2

Onglet Affichage → Macros. Sélectionnez Timer dans la liste et cliquez Exécuter. La cellule minuteur décompte jusqu'à zéro, puis une boîte « Décompte terminé » s'ouvre. Cliquez OK pour revenir au travail.

Astuce

Vous n'êtes pas obligé d'utiliser la cellule A1. Placez votre minuteur où vous voulez et changez la référence de cellule à la ligne 8 du code (A1 → votre cellule).