E
Evelynetfrancois
Guest
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
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