probleme de worksheet_change

[PETER]

Bonjour le forum

voila donc mon probleme.

j ai une command qui suit :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('E6:E28')) Is Nothing Then
If Target = '' And Target.Offset(0, 1) = '' Then
.......


et sur ma feuille j'ai un bouton qui s'appelle 'remise à zéro' qui rempli cette fonction :
Range('E6:E28') = ''

Mais voila, cela bug (je pense que c'est du au fait que dans ma 1ere fonction j'utilise la command target.row et que dans la seconde manip cela selection plusieur rows)
comment faire ???

Merci a tous

 

[PascalXLD]

Bonjour

Essaies en faisant ceci

Private Sub Worksheet_Change(ByVal Target As Range)
on error goto Erreur
If Not Application.Intersect(Target, Range('E6:E28')) Is Nothing Then
If Target = '' And Target.Offset(0, 1) = '' Then
.......


Erreur:
end sub

Bon courage