Posted to microsoft.public.excel.misc
|
|
Timer Update
Thanks Jacques, it works a treat
"JB" wrote:
Chronomht http://boisgontierjacques.free.fr/fi...ronoSimple.xls
Public ProchainChrono, Dipart
Sub Demarre()
Dipart = Timer()
majChrono
End Sub
Sub majChrono()
Sheets("Chrono").[A1] = Format((Timer() - Dipart) / 3600 / 24,
"hh:mm:ss")
ProchainChrono = Now + TimeValue("00:00:1")
Application.OnTime ProchainChrono, "majChrono"
End Sub
Sub Arret()
On Error Resume Next
Application.OnTime ProchainChrono, Procedu="majChrono",
Schedule:=False
End Sub
JB
On 12 ao{t, 19:08, Alectrical
wrote:
Hi
Is there any way I can have a counter in a cell, ie start at 0 and add 1
every second.
Thanks
|