Comptage en fonction de la couleur cellule

[Apopis]

Juste un petit problême à soumettre à votre sagacité:

Je veux rentrer dans la cellule Z1 , une fonction du style :
"SI la couleur de la cellule B5 est rouge, alors tu marque 1, sinon rien"

Tout simple tout bête mais je seche..

 

[Staple1600]

Re : Comptage en fonction de la couleur cellule

Bonjour


Voic une fonction VBA personnalisée

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

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

 

[Apopis]

Re : Comptage en fonction de la couleur cellule

Simple, efficace.. merci