compter nombre de cellules écrites en rouge

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

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas