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:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnB1", 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