Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Comptage en fonction de la couleur cellule

Apopis

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re : Comptage en fonction de la couleur cellule

Bonjour


Voic une fonction VBA personnalisée
Code:
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
 
Dernière édition:

Discussions similaires

Réponses
1
Affichages
202
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…