Comptabiliser le nombre de couleur

commisaire juve -  
m@rina Messages postés 26481 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,je souhaiterai comptabilisé sur Excel le nombre de cases vertes ou rouges je m'explique
J'ai une colonne avec plein de case rouge ou verte et je voudrai connaitre le nombre de case rouge et le nombre de case verte
Quelqu'un pourrai-il m'aider ?
A voir également:

2 réponses

hich24 Messages postés 1686 Statut Membre 753
 
tu peut faire avec somme si sur la valeur qui rend la cellule vert , et sur une autre cellule la méme formule avec la vleur qui met tes cellule en rouge ( en travaille pas en couleur mais sur des valeur )
excemple :
dans chaque cellule de la clonne C , si mise en forme condetionnel mais en vert la cellule lorsque ca valeur et "Oui"

sur R1 en met la formule =nb.si(C:C;"Oui")

et si non met la cellule en rouge alors

sur R2 =nb.si(C:C;"Non")


remarque (oui, non ) peuvent etre autre chose ( achat , vente ) , (payé , non payé ),...
0
m@rina Messages postés 26481 Date d'inscription   Statut Contributeur Dernière intervention   11 484
 
Bonjour,

Cette fonction n'existe pas dans Excel nativement, mais on peut la créer en VBA :

Function nbcoul(plage As Range, couleur As Variant) As Double
Application.Volatile True

Dim cellule As Range, nb As Long
Application.Volatile True
nb = 0
For Each cellule In plage
    If couleur = "rouge" Then couleur = 3
    If couleur = "vert" Then couleur = 4
If cellule.Interior.ColorIndex = couleur Then
nb = nb + 1
End If
Next cellule
nbcoul = nb
End Function


Ensuite, pour utiliser la fonction :
=nbcoul(A1:A10;"rouge")
te donnera par exemple le nombre de cellules rouges de la plage A1:A10
Pour compter le vert, tu mettras vert à la place de rouge.

Voici par ailleurs une fonction qui permet de connaître le code de la couleur :

Function couleurcell(c As Range)
couleurcell = c.Interior.ColorIndex
End Function


Pour l'utiliser :
=couleurcell(A1)

Car je n'ai pris comme exemple que le rouge et le "vert brillant".

m@rina
0