Comment insérer un compte à rebours dans une feuille de calcul Excel
À lui seul, Excel n'a pas de fonction pour inclure un compte à rebours. Cependant, avec un langage de programmation appelé Visual Basic pour Applications, il est possible d'écrire une simple macro pour exécuter la fonction de compte à rebours. Cet article explique comment créer une macro qui permet à un minuteur de compter jusqu'à 12 heures, adaptée à la gestion du temps dans une feuille de calcul.
Formater la cellule du minuteur
Étape 1
Dans une nouvelle feuille de calcul ouverte, accédez à la cellule A1. Ce sera l'emplacement de l'exemple de minuterie.
Étape 2
Cliquez avec le bouton droit sur la cellule A1 et sélectionnez Formater les cellules .
Étape 3
Sélectionnez Heure dans la zone Catégorie et choisissez l'un des formats heures:minutes:secondes. Cliquez sur OK pour définir le format de cellule.
Créer la macro
Étape 1
Accédez à la fenêtre d'édition de Visual Basic en appuyant sur ALT-F11 . Cliquez sur Insérer dans la barre de menu et cliquez sur Module .
Étape 2
Saisissez le texte suivant dans la fenêtre Module1 :
Dim gCompter comme date
Sous-minuterie()
gCount =Maintenant + TimeValue("00:00:01")
Application.OnTime gCount, "EndMessage"
Sous-titre de fin
Sub EndMessage()
Dim xRng As Range
Définir xRng =Application.ActiveSheet.Range("A1")
xRng.Valeur =xRng.Valeur - TimeSerial(0, 0, 1)
Si xRng.Valeur <=0 Alors
MsgBox "Compte à rebours terminé."
Quitter le sous-marin
Fin si
Minuterie d'appel
Fin du sous-titre
Vous pouvez copier et coller le texte du code ci-dessus, ou vous pouvez le saisir, ligne par ligne, dans la fenêtre Module1. L'éditeur VBA applique la mise en forme selon les besoins.
Étape 3
Réduisez la fenêtre VBA en cliquant sur - symbole dans le coin supérieur droit. Cliquez sur Fichier sur le ruban et Enregistrer sous . Sélectionnez un emplacement pour enregistrer votre fichier. Dans la fenêtre Enregistrer sous, donnez un nom à votre classeur et sélectionnez Classeur Excel prenant en charge les macros (*.xlsm) à partir du type de sauvegarde la liste déroulante. Cliquez sur Enregistrer et retournez au classeur.
Utilisation de la minuterie
Étape 1
Cliquez sur la cellule A1 et saisissez 0:3:0 , puis appuyez sur Entrée . Ceci règle le temps sur 0 heures, 3 minutes et 0 secondes.
Étape 2
Cliquez sur Afficher sur le ruban et cliquez sur Macros . Sélectionnez Minuteur dans la liste des macros et cliquez sur Exécuter . Votre cellule de minuterie commencera à décompter jusqu'à zéro, lorsqu'un Compte à rebours terminé la boîte de dialogue s'ouvre. Cliquez sur OK pour retourner à votre travail.
Astuce
Vous n'êtes pas obligé d'utiliser la cellule A1. Placez votre minuterie n'importe où et modifiez la référence de cellule à la ligne 8 du code de la minuterie de A1 à la cellule que vous utilisez.