Discussion :

[argaz01]

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

[JPierreM]

dans le code que représente Target?

[zyhack]

Bonjour

A mon avis c'est un code qui vient d'un événement car dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
For Each c In Target

ici "Target" n'est pas un objet

il faut que tu utilise un objet tel que

Selection <- ce qui t'oblige à faire une selection des cellules que tu veux parcourir
range("A1:F56") <- une plage fixe

ou que tu definisse Target en tant qu'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
dim target as objet
set target= range("xx:xx")