Heure en temps réel

[maval]

Bonjour

Je recherche un code pour mettre heure en temps réel dans une cellule sans passé par la formule =MAINTENANT()
Je vous remercie d'avance

Max

 

[maval]

Re,

Voila j'ai trouvé ce code :

Option Explicit
Public tps
Sub majh()
Sheets("Feuil1").Range("A1") = Format(Now, "hh:mm:ss")
tps = Now + TimeValue("00:00:1")
Application.OnTime tps, "majh"
End Sub

Il fonctionne très bien mais j'aimerai qui s'affiche dans toute les pages du classeur.

Je vous remercie

Max

 

[mutzik]

bonjour,
dans les autres feuilles, tu mets = et là tu cliques sur la cellule en feuil1 cellule A1
quand cette cellule se met à jour via la macro, les autres suivent

 

[maval]

Salut Bertrand

Je te remercie
Tu est de Mutzik en Alsace ?

 

[job75]

Bonjour maval, mutzik, le forum,

Si on lance de nombreuses fois la macro il y a multiplication des tps et le processus ne va pas bien.

Pour l'éviter utiliser :

Option Explicit
Public tps
Sub majh()
Range("A1").NumberFormat = "hh:mm:ss"
Range("A1") = Time
On Error Resume Next
Application.OnTime tps, "majh", , False 'RAZ car plusieurs lancements sont possibles
tps = Now + 1 / 86400
Application.OnTime tps, "majh"
End Sub

A+

 

[maval]

Bonjour Job

Je vous remercie et vous souhaite une bonne journée

Max