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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
=Nb_Couleur(A1:A100;35)