zone non effacable sans protection de cellules !

[Evelynetfrancois]

bonjour a touT le forum
j essaye de pas doubler le post puisque meme sujet !!!!
mais j ai peur qu il soit trop vieux alors j hesite !!

je voudrais bien (si possible evidement ) un complement
de cette macro

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range('A1:A400')) Is Nothing Then
If Target.Value = '' Then Application.Undo
End If
End Sub

si une seule cellule est considerée , la macro fonctionne parfaitement
(aucuns effacements)
mais si plusieurs cellules le sont , l effacement se fait
malgres tout
donc ma Q est :
est il possible de l ettendre pour plusieurs cellules le cas echeant
merci d avance et bonne journée a tous
E et F

 

[myDearFriend!]

Re Evelynetfrancois,

J'ai déposé une réponse sur le fil d'origine Ce lien n'existe plus...

Il n'y a pas à hésiter : tu avais eu une bonne réaction en continuant sur le fil d'origine... on ne multiplie pas les fils pour le même sujet.

Bonne soirée.