Bonjour,

Je voudrais savoir ce qui cloche dans le code ci-après qui m'aide à colorer des lignes délimitées selon leur contenu : En effet, ça me met erreur d'exécution '424': objet requis!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub ColorTypeFeuille1()
Worksheets("Feuil1").Select
Dim c As Range
 
For Each c In Target
   If c.Column = 3 Then
      Select Case UCase(Trim(c.Value))
        Case "OPCVM"
          Range("A" & c.Row & ":R" & c.Row).Interior.ColorIndex = 17
        Case "TCN"
          Range("A" & c.Row & ":R" & c.Row).Interior.ColorIndex = 35
        Case Else
          Range("A" & c.Row & ":R" & c.Row).Interior.ColorIndex = xlNone
      End Select
   End If
Next c
End Sub
En vous remerciant d'avance
Houssaine