laurent.madec
XLDnaute Nouveau
Bonjour le forum!
j'ai une Macro pour faire une mise en forme conditionnelle, mais lorsque je veux copier la cellule, j'ai un message d'erreur : "erreur d'execution 13"
voici mon code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "EX" Then Target.Interior.ColorIndex = 36
If Target.Value = "ET" Then Target.Interior.ColorIndex = 34
If Target.Value = "VA" Then Target.Interior.ColorIndex = 44
If Target.Value <> "EX" And Target.Value <> "BB" And Target.Value <> "ET" _
And Target.Value <> "VA" Then Target.Interior.ColorIndex = 2
End Sub
il doit me manquer un bout de code...
j'ai une Macro pour faire une mise en forme conditionnelle, mais lorsque je veux copier la cellule, j'ai un message d'erreur : "erreur d'execution 13"
voici mon code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "EX" Then Target.Interior.ColorIndex = 36
If Target.Value = "ET" Then Target.Interior.ColorIndex = 34
If Target.Value = "VA" Then Target.Interior.ColorIndex = 44
If Target.Value <> "EX" And Target.Value <> "BB" And Target.Value <> "ET" _
And Target.Value <> "VA" Then Target.Interior.ColorIndex = 2
End Sub
il doit me manquer un bout de code...