Function Couleur(Cellule As Range)
Application.Volatile
Couleur = Cellule(1).Interior.ColorIndex
End Function
Function NbreCellulesCouleur(Plage As Range, Couleur&) As Long
'Compter le nombre de cellules d'une couleur donnée dans une plage donnée
'Plage: plage de cellules à inspecter
'Couleur: valeur de la couleur cherchée
Application.Volatile
Dim Cellule As Range, Compteur&
For Each Cellule In Plage
If Cellule.Interior.ColorIndex = Couleur And Not IsEmpty(Cellule) Then Compteur = Compteur + 1
Next Cellule
NbreCellulesCouleur = Compteur
End Function
Function NbreCellulesCouleurParSite(Plage As Range, CouleurCellule As Range, Site As String)
Application.Volatile
Dim Cellule As Range, Couleur&, NbreCellulesCouleur&
Couleur = CouleurCellule.Interior.Color
Colonne = Plage.Column
For Each Cellule In Plage
If Cellule.Interior.Color = Couleur And Cells(Cellule.Row, Colonne) = Site Then NbreCellulesCouleur = NbreCellulesCouleur + 1
Next Cellule
NbreCellulesCouleurParSite = NbreCellulesCouleur
End Function