Initialisation d'une durée pour un chromètre qui décompte

[ExcellezMoi]

Bonjour
J’ai récupéré le code d’un chronomètre réalisé par PMO en 2010 pour décompter le temps lors de compétitions sportives. Ce code est basé sur un UserForm et un contrôle label. J’ai ajouté deux Commandbutton : start et stop
Je dispose d’Excel 2007
Je désirerais dans la fonction suivante entrer par l’intermédiaire d’une cellule la valeur initiale à décompter. Ici 10 minutes dans mon exemple en gras.

Private Sub UserForm_Initialize()
pause = False
durée = TimeValue("00:10:00")
Me.lblchrono.Caption = Format(durée, "h:mm:ss")
Me.lblchrono.BackColor = Me.BackColor
End Sub

Pour infos Ma fonction chronomètre est la suivante :
Option Explicit
Public lapse As Double
Public pause As Boolean
Public Sub Chronometre()
If lapse > Now Then
If pause = False Then
chrono.lblchrono.Caption = Format(lapse - Now, "h:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "Chronometre"
Else
If pause = True Then
chrono.lblchrono.BackColor = RGB(20, 230, 50)
lapse = Now
Exit Sub
End If
End If
Else
Beep
chrono.lblchrono.BackColor = vbRed
End If
End Sub


Cela est t’il possible et si oui, pouvez vous me donner la manière de faire.
Merci d'avance

 

[camarchepas]

Re : Initialisation d'une durée pour un chromètre qui décompte

Bonjour ,

Un exemple possible : La valeur de la cellule A1 devra être en minutes

durée = TimeValue("00:" & right("0" & range("A1"),2) & ":00")

 

[MJ13]

Re : Initialisation d'une durée pour un chromètre qui décompte

Bonjour ExcellezMoi, camarchepas

Peut être:

durée =TimeValue(sheets("Feuil1").cells(1,1))

 

[ExcellezMoi]

Re : Initialisation d'une durée pour un chromètre qui décompte

Alors là, chapeau les gars
merci beaucoup
je retiens la solution de camarchepas qui marchebien 😉

 

[ExcellezMoi]

Re : Initialisation d'une durée pour un chromètre qui décompte

par contre je ne sais pas clore la discussion