Christian0258
XLDnaute Accro
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
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