Excel : Fonction couleur dans la Cellule

Bonjour,

2 fonctions personnalisée pour ton problème :
- une pour compter les cellule d'une couleur dans une plage

Function nbCellCol(plage As Range, couleur As Integer) As Long
    Dim c As Range, t As Long
    For Each c In plage
        t = t - (c.Interior.ColorIndex = couleur)
    Next c
    nbCellCol = t
End Function

- une pour récupérer le n° de couleur d'une cellule si tu ne le connais pas

Function couleur(cellule As Range) As Integer
    couleur = cellule.Interior.ColorIndex
End Function

A coller dans un module vba.
Si tu ne connais pas on t'expliquera comment faire.

syntaxe :
en donnant le n° de couleur (3=rouge)
=nbCellCol($A$1:$A$5,3)
ou en récupérant le n° de couleur de la cellule A1 :
=nbCellCol($A$1:$A$5,couleur($A$1))

exemple: http://www.cijoint.fr/cjlink.php?file=cj200809/cijnh2370S.xl­s

eric