Comment modifier cette macro pour cal 1900 en 1904 ?

[Christian0258]

Bonjour à tout le forum,

J'aurais savoir comment modifier cette macro dans le cas du calendrier 1904 coché ?

Merci pour votre aide.
Bien amicalement,
Christian.


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$O$5" Then
Target.Select
ActiveCell.Offset(1, 0).Value = CDate("01/01/" & Target.Value)
ActiveCell.Offset(2, 0).Value = ActiveCell.Offset(1, 0).Value + 1
For i = 3 To 366
ActiveCell.Offset(i, 0).Value = Cells(4 + i, 15).Value + 1
Next
End If
End Sub

 

[JCGL]

Re : Comment modifier cette macro pour cal 1900 en 1904 ?

Bonjour à tous,
Salut Christian 🙂,

Rajoute cette ligne :

ActiveWorkbook.Date1904 = False

dans le ThisWorbook_Open

et souviens toi l'enregistreur fait des miracles arf

A+ mon ami
A+ à tous