Problème avec un compte à rebours

[pat01200]

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

 

[Dranreb]

En résumé tout devrait pouvoir se faire avec ça :

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

 

[pat01200]

Finalement j'ai trouvé la solution en utilisant ce code : ThisWorkbook.Sheets("Feuil1").[D3]

Le sujet est donc clos, merci de m'avoir aiguillé !

 

[Dranreb]

Si l'affichage devait se faire dans un UserForm je me ferais fort de faire passer progressivement la couleur du vert au rouge dans les 10 dernières minutes !