compter nombre de cellules écrites en rouge

libellule85

XLDnaute Accro
Bonjour le forum,
Je cherche à compter le nombre de cellules écrites en rouge.
D'avance merci pour votre aide
 

Pièces jointes

  • Libellule85 cpter cellules écrites rouge.xlsm
    8.4 KB · Affichages: 40

DoubleZero

XLDnaute Barbatruc
Bonjour, libellule85, le Forum,

Comme ceci ?
VB:
Option Explicit
Sub Rouge_compter()
    Dim c As Range, compteur
    compteur = 0
    For Each c In Columns(1).SpecialCells(xlCellTypeConstants)
        If c.Font.ColorIndex = 3 Then compteur = compteur + 1
    Next
    MsgBox compteur
End Sub
A bientôt :)
 

chris

XLDnaute Barbatruc
Bonjour à tous
Salut les filles :)

Une fonction aussi (pas de moi) : qui utilise une cellule de référence pour la couleur à compter
Code:
Function NBCouleur(Plage As Range, Cellule_de_référence As Range) As Integer

'Application.Volatile True
NBCouleur = 0
Macoul = Cellule_de_référence.Font.ColorIndex
For Each cellule In Plage
    If cellule.Interior.ColorIndex = Macoul Then NBCouleur = NBCouleur + 1
Next cellule
End Function

Edit : judicieuse remarque de Doublezero . J'ai corrigé pour une réfrence à la couleur de la poice te non du fond
 
Dernière édition:

libellule85

XLDnaute Accro
Bonsoir,
Merci beaucoup pour ta réponse, mais une question : tu mets quelle formule pour activer ta fonction ??

Edit : Oooooooooops, je n'avais pas fait attention à l'en-tête ! Effectivement, elle ne fonctionne qu'avec les cellules colorées et non la police !!
 

DoubleZero

XLDnaute Barbatruc
Re-bonjour,
... tu mets quelle formule pour activer ta fonction...
J'ai modifié la fonction de chris :) afin de prendre en compte les couleurs personnalisées.
Code:
Option Explicit
Function NBCouleur(Plage As Range, Cellule_de_référence As Range) As Integer
    Dim cellule As Range, Macoul
    Application.Volatile
    NBCouleur = 0
    Macoul = Cellule_de_référence.Font.Color
    For Each cellule In Plage
        If cellule.Font.Color = Macoul Then NBCouleur = NBCouleur + 1
    Next cellule
End Function
A bientôt :)
 

Pièces jointes

  • 00 - libellule85 - Couleurs compter.xlsm
    16.9 KB · Affichages: 85

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib