Function CouleurROUGE(couleurR As Range) As Boolean
Application.Volatile
'couleur de fond de la cellule
If couleurR.Interior.ColorIndex = 3 Then CouleurROUGE = True
End Function
(à insérer dans un module standard)
ensuite dans ta cellule Z1
=SI(CouleurROUGE(B5)=VRAI;"1";"")
Edit: Si c'est la couleur de la police que tu veux tester
Code:
Function PoliceROUGE(couleurR As Range) As Boolean
Application.Volatile
'couleur de la police du texte dans une cellule ici 3 =rouge
If couleurR.Font.ColorIndex = 3 Then PoliceROUGE = True
End Function