Tu peux faire un copier coller de cette fonction et la mettre dans
outils / macros / visual basic editor
1 2 3 4 5 6 7 8 9 10 11
|
Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer
Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each cell In SearchArea
If cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next cell
End Function |
Pour l'utiliser, la syntaxe est la suivante :
=colorcountif(nom_zone;cellule_reference)
avec évidemment dans la cellule, la couleur de ton choix
PS en cas de pb, je peux t'envoyer un modèle
Partager