CompteCouleurFond SI la valeur de la cellule est > à 6,50

[Aurelie ACPP]

Bonjour,

Je ne sais pas comment compter le nombre de cellules qui sont (par exemple) verte et qui contiennent (par exemple) 7,00.

Pouvez-vous, SVP, m'aider.

Merci.

Aurélie.

 

[job75]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Bonjour Aurélie, le forum,

Une autre solution avec cette fonction :

Function CompareCouleur(champ As Range, cellule As Range)
Dim coul&, t, u, i&, j%
Application.Volatile
coul = cellule.Interior.Color
If champ.Count = 1 Then
  CompareCouleur = -(champ.Interior.Color = coul)
Else
  t = champ 'matrice
  u = UBound(t, 2)
  For i = 1 To UBound(t)
    For j = 1 To u
      t(i, j) = -(champ(i, j).Interior.Color = coul)
    Next
  Next
  CompareCouleur = t
End If
End Function

Et cette formule en K2 :

=SOMMEPROD(ESTNUM(G25:R34)*(G25:R34>=6,5);CompareCouleur(G25:R34;G35)+CompareCouleur(G25:R34;I35))

Fichier (2).

A+

 

[Staple1600]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Bonjour à tous

Pour info:
Sur les versions supérieures à Excel 2003, on peut appliquer un filtre avec comme critères les couleurs.
(Voir ici pour les explications)

En y associant l'autre critère : <6.5 et en utilisant SOUS.TOTAL, on doit pouvoir se passer de VBA sur ce coup-là

Donc Aurélie, quelle est ta version d'Excel?
Je crains que ce ne soit 2003 car ta PJ est un *.xls

Me-trompe je?

 

[Aurelie ACPP]

Re : CompteCouleurFond SI la valeur de la cellule est > à 6,50

Bonjour,

Un ENORME MERCI pour toutes ces réponses et solutions apportées...
Effectivement je suis sur Excel 2003 !!!

Merci encore pour tout et bonne journée à tous.

Aurélie.