[=Maintenant] Une Boucle en continue ?

[soaresden]

Bonjour à tous !

Je suis en train de mettre au point une formule excel avec comme base la formule =maintenant
J'extraite les informations horaires grace aux formules :

HEURE; MINUTE; SECONDE.

La formule = maintenant se met à jour :

- dès qu'une modification est réalisée sur la feuille
- dès qu'un ordre de recalcul (F9) est réalisé.

J'aimerai pouvoir lancer une macro qui réalise ce F9 en continu dès l'ouverture du fichier excel
(on y verrai les secondes défiler en temps réel !)

Merci d'avance !

 

[Misange]

Re : [=Maintenant] Une Boucle en continue ?

Bonjour

De nombreux exemples ici
Ce lien n'existe plus
regarde chronomètre, pendule, horloge... ça ne manque pas !

 

[soaresden]

Re : [=Maintenant] Une Boucle en continue ?

Superbe !

Exactement ce qu'il me fallait

Je me permets de recopier ici les infos:

A mettre dans "thisworkbook"

Dim bstop As Boolean
Dim HeureProchainAppel

Private Sub Workbook_BeforeClose(Cancel As Boolean)
bstop = True
HorlogeEnA1
End Sub
Private Sub Workbook_Open()
HorlogeEnA1
End Sub
Sub HorlogeEnA1()
If bstop = True Then
'Annuler le paramétrage du OnTime programmé précédemment.
Application.OnTime EarliestTime:=HeureProchainAppel, _
Procedure:="ThisWorkbook.HorlogeEnA1", Schedule:=False
Exit Sub
End If

Sheets("Tempo").Range("H12").Value = Format(Now, "HH:MM:SS")

'Nouveau paramétrage de OnTime
HeureProchainAppel = Now + TimeValue("00:00:01")
Application.OnTime HeureProchainAppel, "ThisWorkbook.HorlogeEnA1", False

End Sub