retrouver valeur avant clic

[jean michel]

bonjour a tous

Lorsque je change la valeur de C1 j'ai un message d'alerte suite au changement
si la valeur n'est pas conforme ,dans ce cas est ce possible de remetre la valeur de C1 avant le changement lorsque je clic sur OK de la msg box

merci et bon weekend

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)
Exit Sub
End If
If Not Application.Intersect(Target, Range("c1")) Is Nothing Then
End If
End Sub

 

[RENE]

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

 

[jean michel]

merci beaucoup c'est impeccable