Private Sub DTPicker21_Change()
ActiveSheet.Unprotect
Dim AQ2 As Date
If DTPicker21.Value <> "" Then
Range("AQ2").Value = DTPicker21.Value
End If
Dim R As Range
Dim myDate As String
Dim A As Date
A = Range("AQ2").Value
myDate = WeekdayName(Weekday(A - 1))
Range("DN1") = myDate
Set R = Range("F5:R5").Find(myDate, lookat:=xlWhole)
Dim J As String
J = R.Value
If J = "lundi" Then
Range("F5") = A
Range("F6") = 1
End If
If J = "mardi" Then
Range("H5") = A
Range("H6") = 1
End If
If J = "mercredi" Then
Range("J5") = A
Range("J6") = 1
End If
If J = "jeudi" Then
Range("L5") = A
Range("L6") = 1
End If
If J = "vendredi" Then
Range("N5") = A
Range("N6") = 1
End If
If J = "samedi" Then
Range("P5") = A
MsgBox ("Voulez-vous vraiment travailler un Samedi ?"), vbYesNo
If vbNo Then
Range("F5") = A
Range("F6") = 1
If vbYes Then
Range("P6") = 1
End If
End If
If J = "dimanche" Then
Range("R5") = A
MsgBox ("Alors, on travail les Dimanche maintenant ?"), vbYesNo
If vbNo Then
Range("F5") = A
Range("F6") = 1
End If
If vbYes Then
Range("R6") = 1
End If
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub