Chris57
XLDnaute Occasionnel
Bonjour à tous,
j'ai une macro qui modifie la couleur d'une cellule lorsqu'on y inscrit une lettre
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 ?
j'ai une macro qui modifie la couleur d'une cellule lorsqu'on y inscrit une lettre
Code:
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 ?