Horloge dynamique Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
L
Le Nen Samuel
Jeune membre
Jeune membre
Messages : 29
Inscrit le : 15 novembre 2015
Version d'Excel : 2010

Message par Le Nen Samuel » 18 novembre 2019, 15:37

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
G
GVIALLES
Membre dévoué
Membre dévoué
Messages : 772
Appréciations reçues : 66
Inscrit le : 28 novembre 2017
Version d'Excel : 2016, 360
Téléchargements : Mes applications

Message par GVIALLES » 23 novembre 2019, 18:02

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.
Cordialement,

Gérard
L
Le Nen Samuel
Jeune membre
Jeune membre
Messages : 29
Inscrit le : 15 novembre 2015
Version d'Excel : 2010

Message par Le Nen Samuel » 23 novembre 2019, 18:52

Merci beaucoup. :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message