Horloge dynamique

Bonjour à tous ...

Je ne vais pas vous demander comment faire une horloge dynamique, car je sais que le sujet a déjà été abordé 10 fois.

J'utilise la macro ci-dessous.

J' aimerais savoir si il existe la possibilité d' insérer une commande ou une macro afin de pouvoir la mettre en pause via un bouton ?

Merci d' avance.

Private Sub Workbook_BeforeClose(Cancel As Boolean)

bstop = True

HorlogeEnB1

End Sub

------------------------------​------------------------------​------------------

Private Sub Workbook_Open()

HorlogeEnB1

End Sub

------------------------------​------------------------------​-------------------

Sub HorlogeEnB1()

If bstop = True Then

'Annuler le paramétrage du OnTime programmé précédemment.

Application.OnTime EarliestTime:=HeureProchainApp​el, _

Procedure:="ThisWorkbook.Horlo​geEnB1", Schedule:=False

Exit Sub

End If

Sheets("calendrier" ).Range("B1​" ).Value = Format(Now, "HH:MM:SS" )

'Nouveau paramétrage de OnTime

HeureProchainAppel = Now + TimeValue("00:00:01" )

Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnB1", False

End Sub

Bonjour,

Il te suffit de déplacer le code présent dans "Workbook_BeforeClose" dans un module :

Sub StopClock
         bstop = True
        HorlogeEnB1
End Sub

et de remplacer :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    StopClock
End Sub

Tu fais ensuite appel à la procédure "StopClock" au moyen d'un bouton par exemple.

Merci beaucoup.

Rechercher des sujets similaires à "horloge dynamique"