couleur de valeur dans module

[philipos_353]

bonjour a tous,
je n'arrive pas a trouver la syntaxe pour que ma macro (merci pierre jean) transfert les valeurs en rouge. colorindex=3 est inopérant.
merci d'avance a tres bientot.
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 Then
Sheets("DAF DKS1160M (CMT) 3000H").Cells(c.Row, c.Column + 10) = Sheets("Feuil1").Range("C" & n).Offset(0, 6)
ColorIndex = 3
End If
Next n
End Sub

 

[porcinet82]

Re : couleur de valeur dans module

Salut,

Pas sur d'avoir tout saisie, mais peut etre ainsi :

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

Si il s'agit du fond de la couleur et non de la couleur des caractère, modifie Font par Interior

@+

 

[philipos_353]

Re : couleur de valeur dans module

merci romain,
@ bientot.
philippe

 

[philipos_353]

Re : couleur de valeur dans module

désolé romain j'ai une erreur 91 with non définie
philippe

 

[porcinet82]

Re : couleur de valeur dans module

re,

Effectivement...
Essais de la manière suivante :

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

@+