problème code VBA

[Marion]

Bonjour au forum

Me voici avec un code situe sur une feuille qui marche a merveille

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range('d4:d65536')) Is Nothing Then Exit Sub
If Target = '2c001carv2' Then MsgBox 'les poids des pommes seront a renseigner, , Fais gaffe...'
End Sub


si dans la colonne D je tape 2c001car un msgbox apparaît trés bien

Mon problème est que si je sélectione par exemple C20:E20 et que je supprime et bien un message d'erreur (bug)apparaît il me faut a chaque fois appuyer sur fin pour continuer

si je supprime uniquement dans la colonne D pas de problème mais is il y a une zone dont fait partie la colonne D alors là (bug)

Y a t'il quelque chose a faire???


Merci


A+Marion

 

[@Christophe@]

Bonsoir,

Ajoute la ligne suivante juste après Private Sub... dans ton code:

On error resume next

Bonne soirée

 

[Marion]

Re


Merci a toi Christophe cela fonctionne

Gros bisous

A+Marion