Compter les cellules en rouge dans une colonne

jonathanV21

XLDnaute Nouveau
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

XLDnaute Barbatruc
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 ...;)
 

JHA

XLDnaute Barbatruc
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
 

Pièces jointes

  • test1.xlsx
    10.7 KB · Affichages: 1

job75

XLDnaute Barbatruc
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+
 

Pièces jointes

  • test(1).xlsm
    18.4 KB · Affichages: 6

jonathanV21

XLDnaute Nouveau
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+

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.
 

Discussions similaires