P PHILIP XLDnaute Occasionnel 16 Septembre 2011 #1 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 Code: Range("CD" & d).Select ActiveCell.FormulaR1C1 = "=RC[-1]*8.5.Font.Color = vb red"
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 Code: Range("CD" & d).Select ActiveCell.FormulaR1C1 = "=RC[-1]*8.5.Font.Color = vb red"
C CHALET53 XLDnaute Barbatruc 16 Septembre 2011 #2 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 Dernière édition: 16 Septembre 2011 Vote positif 0 Vote négatif
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