MACRO

Bonjour,

http://www.excelabo.net/compteclic.php?nom=jb-heurechrono

Dans un module:

Dim temps
Sub majHeure()
Sheets("feuil1").Calculate
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub

Sub auto_open()
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

Cordialement JB

On 28 jan, 17:36, ropourlu <ropou...@discussions.microsoft.com> wrote:

Bonjour,

Comment actualiser l'heure automatiquement dans une cellule contenant la
formule =MAINTENANT()?

Merci pour votre aide!

Bonjour,

le recalcul est par défaut automatique et c'est lorsqu'on
modifie une valeur ou formule dans la feuille que toutes les autres
formules sont recalculées.
Donc aussi celle qui contient maintenant()

Il serait très lourd de recalculer sans arrêt toute la feuille
alors soit tu fais F9 et tu actualise soit on prévoit une macro appelée
régulièrement mais plus le laps sera court entre chaque appel plus cela
encombrera l'application.

Exemple ou on colle l'heure régulièrement en b2 de Feuil1:

'''''**********************

'''''***dans module standard***
Public mytime As Date
Sub alheure()
mytime = Now + TimeValue("00:00:01")
Application.OnTime mytime, "alheure"
Feuil1.[b2] = Format(Now, "hh:nn:ss")
End Sub
'''''***
'''''***dans Thisworkbook***
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime mytime, "alheure", , False
End Sub

Private Sub Workbook_Open()
Call alheure
End Sub
'''''***

'''''********************

'Cordialement

'LSteph

Bonjour,

Comment actualiser l'heure automatiquement dans une cellule contenant la
formule =MAINTENANT()?

Merci pour votre aide!

Bonsoir,

alternative pour moins gêner l'application si le but est juste
d'afficher l'heure dans une feuille
Ajoute un Label exemple ici dans Feuil2
et dans le code que je t'ai donné garde ce qui concerne les évennements
de classeur tels que dans thisworkbook
mais
remplace ce qui est dans module1 ainsi:

Public mytime As Date
Sub alheure()
mytime = Now + TimeValue("00:00:01")
Application.OnTime mytime, "alheure"
Feuil2.Label1.Caption = Format(Now, "hh:nn:ss")
End Sub

Cordialement.

lSteph

Bonjour,

Comment actualiser l'heure automatiquement dans une cellule contenant la
formule =MAINTENANT()?

Merci pour votre aide!