1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Private WithEvents Chrono As MBHiTimer.CHiTimer
Private Sub Chrono_Timer
If Not ActiveSheet Is worksheet then Exit sub
With WorkSheet
.Range("A1")=Right(.Range("A1",1) & Left(.Range("A1"),Len(.Range("A1"))-1)
.Range("A2")=Right(.Range("A2",1) & Left(.Range("A2"),Len(.Range("A2"))-1)
End with
End sub
Private Sub WorkSheet_Ativate()
Me.Range("A1")=Format(Date,"dddd dd mmmm yyyy")
Me.Range("A1")=Ucase(Left(Range("A1"),1)) & Mid(Me.Range("A1"),2)
Me.Range("A2")="Semaine n°" & DatePart("w",date) & " " & 1+DateDiff("d",DateSerial(year(Date),1,1), Date) & "ième jour de l'année")
Me.Range("A1")=Me.Range("A1") & string(len(me.range("A1"))," ")
Me.Range("A2")=Me.Range("A2") & string(Abs(len(Me.Range("A2"))-len(Me.Range("A1"))," ")
Set Chrono=New MBHiTimer.CHiTimer
Chrono.Interval=200
Chrono.Enabled=True
End sub
Private Sub WorkSheet_Deactivate()
Set Chrono=Nothing
End sub |
Partager