Private Sub CheckBox1_Change()
Feuille = Format(Range("D3"), "dd/mm/yyyy")
Set C = Sheets("Programme").Range("B2:B" & Range("B65000").End(xlUp).Row).Find(CDate(Feuille))
If Not C Is Nothing Then
C.Offset(0, 2).Value = IIf(CheckBox1, "Demi-journée", "Journée")
End If
End Sub
Private Sub CommandButton1_Click()
Sheets("Programme").Activate
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A18:A23")) Is Nothing Then
Feuille = Format(Range("D3"), "dd/mm/yyyy")
NbP = Application.CountA(Range("A18:A23"))
Set C = Sheets("Programme").Range("B2:B" & Range("B65000").End(xlUp).Row).Find(CDate(Feuille))
If Not C Is Nothing Then
C.Offset(0, 3).Value = NbP
End If
End If
End Sub