Plantage macro SelectionChange lors sélection plage

[Chris57]

Bonjour à tous,

j'ai une macro qui modifie la couleur d'une cellule lorsqu'on y inscrit une lettre

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("REMPLACEMENTS"), Target) Is Nothing Then
            Select Case Target.Value
                Case Is = ""
                    Target.Interior.Pattern = xlNone
                    If Not Target.Comment Is Nothing Then Target.Comment.Delete
                    
                Case Is = "M"
                    Target.Font.Color = -16776961
                    Target.Font.Bold = True
                    Target.Interior.Color = 13995347
End Sub

Le problème est lorsque je sélectionne plusieurs cellules qui contiennent des "M" et que j'appuie sur SUPPR, j'ai une erreur à la ligne Case Is = ""
Comment faire pour éviter ce plantage ?

 

[camarchepas]

Re : Plantage macro SelectionChange lors sélection plage

Bonjour ,

Ajoute dans la ligne de test :

If Not Intersect(Range("REMPLACEMENTS"), Target) Is Nothing and target.count = 1 Then

 

[Chris57]

Re : Plantage macro SelectionChange lors sélection plage

merci, ça marche impec !!