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
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
J'ai modifié la fonction de chris afin de prendre en compte les couleurs personnalisées.... tu mets quelle formule pour activer ta fonction...
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