Bonjour
Code modifié
Dim Message As String
Message = ""
If Weekday([S23], vbMonday) = 6 And [N23] = 12 Then Message = "CD Samedi après Midi non autorisée"
If Weekday([S23], vbMonday) = 7 And [N23] = 8 Then Message = " CD Dimanche Matin Non Autorisée"
if" message" <> then ' affichage du message si "message" contient une valeur
Call MsgBox("" _
& Message & vbCrLf & "" _
, vbExclamation, "Selon le règlement interne")
end if
ou
If Target.Address = "$S$23" Or Target.Address = "$N$23" Then
If Weekday([S23], vbMonday) = 6 And [N23] = 12 Then Message = "CD Samedi après Midi non autorisée"
If Weekday([S23], vbMonday) = 7 And [N23] = 8 Then Message = " CD Dimanche Matin Non Autorisée"
Call MsgBox("" _
& Message & vbCrLf & "" _
, vbExclamation, "Selon le règlement interne")
end if
JP14