Compter les cellules en rouge dans une colonne

[jonathanV21]

Bonjour a tous,

j'ai une colonne avec des valeurs en rouge et en noir, celle qui sont en rouge sont comprises entre 0 et 5 par exemple,

Dans une cellule je voudrais afficher le nombre de cellules en rouge sur le nombre de cellules ou il y a quelque chose ( noir et rouge) de la colonne.

Par exemple : il y a 6 cellules écrites en rouge sur 10 cellules ou il y a quelque chose écrit.

Je voudrais le résultat : 6/10.

Merci de votre aide !

 

[James007]

Bonjour,

Au lieu de vouloir compter les cellules en rouge ... il est plus simple d'utiliser les règles qui colorent tes cellules ...

Encore beaucoup plus simple ... joindre un fichier test pour avoir une solution totalement sur-mesure ...😉

 

[jonathanV21]

Bonjour,

j'ai mis ça sur excel pour être plus clair : je voudrais avoir le 3/7 avec une formule.

Cordialement

 

[excfl]

Bonjour le forum,

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

 

[jonathanV21]

Bonjour le forum,

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

super merci beaucoup exactement ce qu'il me fallait !

bonne journée

 

[James007]

Ci-joint ton fichier test ...

 

[sylvanu]

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")

 

[jonathanV21]

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")

Encore mieux ! super !

merci beaucoup

 

[JHA]

Bonjour à tous,

Essayer cette formule matricielle en rapport avec la MFC.

=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

 

[jonathanV21]

Bonjour à tous,

Essayer cette formule matricielle en rapport avec la MFC.

=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

Compliqué mais ça peut bien servir plus tard ^^ merci

 

[sylvanu]

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.

 

[job75]

Bonjour jonathanV21, James007, excfl, sylvanu, JHA,

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

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+

 

[jonathanV21]

Bonjour jonathanV21, James007, excfl, sylvanu, JHA,

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

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+

la macro fonctionne mais quand j'adapte a d'autre valeurs ca bloque au niveau de "If c <> "" Then"
ça me met incompatibilité de type.

 

[jonathanV21]

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.

j'ai essayer avec ta formule ça fonctionne mais quand je vais chercher la cellule ou il y écrit 0 et 3, ça ne fonctionne plus

 

[job75]

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

Vous avez donc des valeurs d'erreur ! Alors remplacez par If CStr(c) <> "" Then