Comment insérer une minuterie de décompte dans Excel ?
Si vous devez traiter certaines données dans un délai limité, insérez une minuterie de décompte directement dans votre feuille de calcul. À l’issue du compte à rebours, une boîte de dialogue s’affichera automatiquement pour vous en avertir. Découvrez ci-dessous un code VBA simple pour intégrer cette minuterie dans Excel.
Insérer une minuterie de décompte dans Excel
Insérer une minuterie de décompte dans Excel
Excel ne propose pas nativement de fonctionnalité de décompte temporel, mais vous pouvez utiliser le code VBA suivant pour y parvenir.
1. Sélectionnez une cellule, appliquez-lui un format horaire en cliquant dessus avec le bouton droit de la souris, puis en choisissant Définir le format des cellules. Dans la boîte de dialogue qui s’ouvre, cliquez sur Heure, sélectionnez 13:30:55 dans la liste Type, puis cliquez enfin sur OK pour fermer cette boîte de dialogue. Voir capture d’écran :
 |
 |
 |
2. Saisissez dans la cellule formatée le temps à partir duquel vous souhaitez lancer le décompte. Voir la capture d’écran :
3. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
4. Cliquez sur Insertion > Module, puis copiez le code VBA suivant dans la nouvelle fenêtre.
VBA : Minuterie de décompte.
Dim gCount As Date
'Updateby20140925
Sub Timer()
gCount = Now + TimeValue("00:00:01")
Application.OnTime gCount, "ResetTime"
End Sub
Sub ResetTime()
Dim xRng As Range
Set xRng = Application.ActiveSheet.Range("E1")
xRng.Value = xRng.Value - TimeSerial(0, 0, 1)
If xRng.Value <= 0 Then
MsgBox "Countdown complete."
Exit Sub
End If
Call Timer
End Sub
Conseil : E1 dans le code ci-dessus indique la cellule contenant le temps que vous avez saisi à l’étape 2.
5. Cliquez sur le bouton Exécuter ou appuyez sur la touche F5 pour lancer la minuterie de décompte. Le décompte commence immédiatement.
6. Une fois le décompte terminé, une boîte de dialogue s’affiche pour vous en informer.
Conseil : Vous ne pouvez pas interrompre le décompte une fois lancé, sauf en fermant le classeur.
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