Re:couleur de valeur dans module

[philipos_353]

ma valeur n'est toujours pas en rouge dans mon tableau, malgré l'aide de romain, je demande votre aide suite a une erreur 91 sur la ligne :
If Not c Is Nothing And c.Font.ColorIndex = 3 Then de la macro suivante
merci
philippe




Sub report()
For n = 2 To Sheets("Feuil1").Range("C65536").End(xlUp).Row
Set c = Sheets("DAF DKS1160M (CMT) 3000H").Columns("C").Find(Sheets("Feuil1").Range(" C" & n), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing And c.Font.ColorIndex = 3 Then
Sheets("DAF DKS1160M (CMT) 3000H").Cells(c.Row, c.Column + 10) = Sheets("Feuil1").Range("C" & n).Offset(0, 6)
End If
Next n
End Sub

 

[Pierrot93]

Re : Re:couleur de valeur dans module

Bonjour Philippe

je pense que Romain a répondu à ta question, il est préférable de rester sur le même fil pour un même sujet.

bon après midi
@+