Heure en temps réel

maval

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Re,

Voila j'ai trouvé ce code :
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
 

job75

XLDnaute Barbatruc
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 :
Code:
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+
 

Discussions similaires

Statistiques des forums

Discussions
311 732
Messages
2 081 995
Membres
101 857
dernier inscrit
mt60400