Nombre de cellule avec un fond de couleur (paramètre) [Résolu]

[jfontaine]

Bonjour,

Une fonction permettant de retourner le nombre de cellule d'une plage ayant une couleur de fond passé en paramètres (code couleur)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Function Nb_Couleur(Plage As Range, NumCouleur As XlColorIndex) As Long
 
Dim i As Long
 
For Each cel In Plage.Cells
    If cel.Interior.colorindex = NumCouleur Then i = i + 1
Next
 
Nb_Couleur = i
 
End Function

En utilisation dans un Onglet

Code :

=Nb_Couleur(A1:A100;35)