Bonjour,
Une fonction permettant de retourner le nombre de cellule d'une plage ayant une couleur de fond passé en paramètres (code couleur)
En utilisation dans un Onglet
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
Code : Sélectionner tout - Visualiser dans une fenêtre à part =Nb_Couleur(A1:A100;35)
Partager