Salut,
VBA très simple...ma macro m'indique si je veux supprimer les cellules avec un Msgbox.
Seulement si j'indique "non" beh la macro efface quand même les cellules...
Sub Clean()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect "??"
If MsgBox("Supprimer les CAS ?", 36, "Confirmation") = vbYes Then
End If
ActiveSheet.Range("N6:S10").Value = ""
ActiveSheet.Range("M7:M10").Value = " "
ActiveSheet.Protect "??", True, True, True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Ou est l'erreur?
Merci!