Hi

Is there any way I can have a counter in a cell, ie start at 0 and add 1
every second.

Thanks

Chronomèt http://boisgontierjacques.free.fr/fi...ronoSimple.xls

Public ProchainChrono, Départ
Sub Demarre()
Départ = Timer()
majChrono
End Sub

Sub majChrono()
Sheets("Chrono").[A1] = Format((Timer() - Départ) / 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

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