Comptabiliser le nombre de couleur

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

  • Votes
  • Date
  • Date décroissante
  1. 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é ),...
    1. Modérateur
      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