XL 2019 VBA: NbreCellulesCouleur + autre condition

[SystemeD]

Bonjour à tous,

J'ai un tableau de planning avec des cases de couleur que je dois compter par site de rattachement.

J'ai utilisé les macro color et NbreCellulesCouleur pour compter les cases mais il faut que je compte désormais les cases par site et je ne m'en sors pas.

Pouvez vous m'aider?

Merci

Bonne journée

 

[sylvanu]

Bonjour SystemeD,
Un essai en PJ avec :

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 Cellule <> "" And Cells(Cellule.Row, Colonne) = Site Then
            NbreCellulesCouleur = NbreCellulesCouleur + 1
    End If
Next Cellule
NbreCellulesCouleurParSite = NbreCellulesCouleur
End Function

Je préfère travailler avec Color au lieu de ColorIndex, car l'index peut être modifié par un utilisateur ou ne pas être identique entre deux PC.

 

[SystemeD]

Absolument parfait!

Merci beaucoup!