Comptabiliser le nombre de couleur

commisaire juve -  
m@rina Messages postés 27638 Date d'inscription   Statut Modérateur 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 ?
Configuration: Windows XP
Firefox 3.0.9

2 réponses

  1. 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
  2. m@rina Messages postés 27638 Date d'inscription   Statut Modérateur Dernière intervention   11 566
     
    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