bonjour a tous
essais ce code c'est une solution ,si ca peut te convenir
bonne journee a tous
Private Sub Worksheet_Change(ByVal Target As Range)
Dim valeur
With Sheets("feuil1").Range("e1")
valeur = Format(.Value, " dddd dd mmmm yyyy")
End With
If Range("c1") <> Range("e1") And Range("f1") = ("validation non faite") Then
MsgBox ("ATTENTION" & Chr(10) & " vous changez la date mais vous n'avez pas validé la journée du " & valeur)
Range("E1").Copy
Range("C1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Exit Sub
End If
If Not Application.Intersect(Target, Range("c1")) Is Nothing Then
End If
End Sub