compter nombre de cellules écrites en rouge

[libellule85]

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

 

[DoubleZero]

Bonjour, libellule85, le Forum,

Comme ceci ?

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 🙂

 

[libellule85]

Bonjour DoubleZero,
Un grand grand merci pour ta réponse, c'est exactement ce que je recherchais.
Bonne journée

 

[chris]

Bonjour à tous
Salut les filles 🙂

Une fonction aussi (pas de moi) : qui utilise une cellule de référence pour la couleur à compter

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

 

[libellule85]

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]

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.

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 🙂

 

[libellule85]

Bonsoir DoubleZero,
Merci beaucoup