Horloge dans une cellule

[guy72]

Bonjour
Que faut il faire pour avoir l'heure qui défile dans une cellule ?
Cordialement
guy

 

[abc]

Re : Horloge dans une cellule

Bonjour,
comme ca ou dans une cellule ?
A +

 

[guy72]

Re : Horloge dans une cellule

Bonjour abc
Je garde de coté ton réveille, mais je souhaiterais l'heure dans une cellule.
Cordialement
guy

 

[JeanMarie]

Re : Horloge dans une cellule

Bonjour

Voici une des différentes possibilités que tu retrouveras sur le forum,

Dans le fichier joint, sous VBA, tu trouveras du côté du VBA, un module avec deux sub

Dim NewHeure As Date

Sub DonneHeure()
NewHeure = Now + TimeValue("00:00:01")
Application.OnTime Now + TimeValue("00:00:01"), "DonneHeure"
ActiveWorkbook.Names.Add Name:="HeureSys", RefersToR1C1:=Now
End Sub

Sub StopHeure()
Application.OnTime EarliestTime:=NewHeure, _
    Procedure:="DonneHeure", Schedule:=False
End Sub

Deux autres sub événementielles dans la feuille du ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    StopHeure
End Sub

Private Sub Workbook_Open()
    DonneHeure
End Sub

Dans le classeur d'excel, un nom nommé (menu Insertion/Nom/Définir...)
à mettre dans ton classeur avant le lancement du code. Et la formule de la cellule A1.

Le passage par un nom nommé, évite l'activation de la procédure événementielle "Change", mais active la procédure événementielle du "calculate"

@+Jean-Marie

 

[guy72]

Re : Horloge dans une cellule

Bonjour

Voici une des différentes possibilités que tu retrouveras sur le forum,

Dans le fichier joint, sous VBA, tu trouveras du côté du VBA, un module avec deux sub

Dim NewHeure As Date

Sub DonneHeure()
NewHeure = Now + TimeValue("00:00:01")
Application.OnTime Now + TimeValue("00:00:01"), "DonneHeure"
ActiveWorkbook.Names.Add Name:="HeureSys", RefersToR1C1:=Now
End Sub

Sub StopHeure()
Application.OnTime EarliestTime:=NewHeure, _
    Procedure:="DonneHeure", Schedule:=False
End Sub

Deux autres sub événementielles dans la feuille du ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    StopHeure
End Sub

Private Sub Workbook_Open()
    DonneHeure
End Sub

Dans le classeur d'excel, un nom nommé (menu Insertion/Nom/Définir...)
à mettre dans ton classeur avant le lancement du code. Et la formule de la cellule A1.

Le passage par un nom nommé, évite l'activation de la procédure événementielle "Change", mais active la procédure événementielle du "calculate"

@+Jean-Marie

Bonjour JeanMarie
C'est impeccable, c'est tout simplement ce que je voulais.
Merci et peut être A +
Guy