Bonjour

Je travaille sous excel 2003
j'ai crée un userform dont l'essentiel des données représentent des durées mesurées (temps)
J'ai entre deux intervalles un count down avec une jauge qui se déclenche durant 360s (Label67)
et durant un autre intervalle un autre count down qui se déclenche également mais avec une durée de 420s(label68)
Voila ce que j'ai écris qui fonctionne très bien pour le premier mais qui ne marche pas pour le second décompte
(420 s'affiche  mais ne décompte pas et la jauge n'est pas dynamique   !)
Faut il que je regroupe tout cela sur une seule et même formule ?
J'ai appellé les deux programmes "demarrer" et "demarreri" et duree et dureee

Je vous remercie pour vos conseils !

Cdlt
Joyeux Noel





Module 1

Option Explicit
Public Const Duree = 360


Sub Demarrer()
    Application.OnTime Now + TimeValue("0:0:01"), "MiseAJour"
     
End Sub


Sub MiseAJour()
 If Turnaroundu2.ProgressBar1.Value = Duree Then
 
  Else
  Turnaroundu2.ProgressBar1.Value = Turnaroundu2.ProgressBar1.Value + 1
          Turnaroundu2.Label67 = Turnaroundu2.Label67 - 1
 
End If
    Call Demarrer
 
End Sub


module 2

Option Explicit
Public Const Dureee = 420

Sub Demarreri()
    Application.OnTime Now + TimeValue("0:0:01"), "MiseAJour"
     
End Sub

Sub MiseAJouri()
 If Turnaroundu2.ProgressBar2.Value = Dureee Then
 
  Else
  Turnaroundu2.ProgressBar2.Value = Turnaroundu2.ProgressBar2.Value + 1
          Turnaroundu2.Label68 = Turnaroundu2.Label68 - 1
  End If
    Call Demarreri
  End Sub