ecriture rouge

[PHILIP]

Bonjour à tous,

Je pense avoir une erreur dans mon écriture pourriez vous m'aider à la mettre a la norme
Je souhaite que la formule s'affiche en rouge et cela ne marche pas
Merci

Range("CD" & d).Select
    ActiveCell.FormulaR1C1 = "=RC[-1]*8.5.Font.Color = vb red"

 

[CHALET53]

Re : ecriture rouge

bonjour

Sub essai()
d = 5

Range("A" & d).Select
With Selection.Interior
.ColorIndex = 3
End With
' ActiveCell.FormulaR1C1 = "=RC[-1]*8.5.Font.Color = vb red"
End Sub


ou

Sub essai()
d = 6

Range("A" & d).Select
With Selection.Font
.ColorIndex = 3
End With
' ActiveCell.FormulaR1C1 = "=RC[-1]*8.5.Font.Color = vb red"
End Sub