Compter les cellules en rouge dans une colonne

excfl à dit:

Bonjour le forum,

=NB.SI.ENS(A1:A10;">=0";A1:A10;"<6")

Cliquez pour agrandir...

sylvanu à dit:

Bonjour le forum.
Et pour avoir les 3/7 demandés : =NB.SI.ENS(A1:A10;">=0";A1:A10;"<3")&"/"&NB.SI(A1:A9;"<10e9")

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

Essayer cette formule matricielle en rapport avec la MFC.

VB:

=NB(SI(($B$1:$B$9>=$E$2)*($B$1:$B$9<=$E$3)-($B$1:$B$9<>"");$B$1:$B$9))&"/"&NBVAL($A$1:$A$9)-NB.SI($B$1:$B$9;"="&"")

JHA

Cliquez pour agrandir...

job75 à dit:

Bonjour jonathanV21, James007, excfl, sylvanu, JHA,

Avec cette macro on compte les couleurs appliquées aussi bien par MFC que manuellement :

VB:

Sub Go()
Dim c As Range, n&, p&
For Each c In [B1:B9] 'à adapter
    If c <> "" Then
        n = n + 1 '1er comptage
        If c.DisplayFormat.Font.ColorIndex = 3 Then p = p + 1 '2ème comptage si rouge
    End If
Next
'---restitution---
With [C10] 'à adapter
    .NumberFormat = "@" 'format Texte
    .Value = p & " / " & n
End With
End Sub

A+

Cliquez pour agrandir...

sylvanu à dit:

Bonjour à tous,
Johnathan, encore mieux pour éviter d'avoir une chaine de caractères :
=NB.SI.ENS(A1:A10;">=0";A1:A10;"<3")/NB.SI(A1:A9;"<10e9") avec format cellules Fraction. Ca donne 3/7.

Cliquez pour agrandir...

jonathanV21 à dit:

ca bloque au niveau de "If c <> "" Then"
ça me met incompatibilité de type.

Cliquez pour agrandir...