Problème avec un compte à rebours

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pat01200

XLDnaute Occasionnel
Bonjour le forum,

J'ai créé une minuterie sous Excel qui fonctionne plutôt bien... sauf que si je bascule sur un autre fichier Excel le compte à rebours s'arrête et ne redémarre que si je reviens sur ma minuterie. J'ai essayé d'utiliser les fonctions activate et deactivate, mais sans succès...
Quelqu'un aurait-il un bout de code pour que ma minuterie continue d'égrener ses secondes même lorsque je travaille sur un autre fichier Excel ?

En PJ mon fichier...

Merci d'avance
Pat
 

Pièces jointes

En résumé tout devrait pouvoir se faire avec ça :
VB:
Option Explicit
Private HeureFin As Date, HeureOnTime As Date

Sub Compter()
If HeureOnTime = 0 Then
  HeureFin = Now + Feuil1.[D3].Value
  Feuil1.[D3].Font.ColorIndex = 3
ElseIf Now >= HeureFin Then
  Beep
  Exit Sub
Else
  Feuil1.[D3].Value = HeureFin - Now
  End If
HeureOnTime = Now + TimeSerial(0, 0, 1)
Application.OnTime HeureOnTime, "Compter"
End Sub
Sub Suspendre()
If HeureOnTime = 0 Then Exit Sub
Application.OnTime HeureOnTime, "Compter", Schedule:=False
HeureOnTime = 0
End Sub
Sub Arrêter()
Suspendre
Feuil1.[D3].Font.ColorIndex = 34
Feuil1.[D3].Value = 0
End Sub
'

Sub Choix()
ChoixDurée.Show ' Y lancer Compter au lieu de CountUp
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
141
Réponses
2
Affichages
669
Réponses
24
Affichages
3 K
Retour