Bonjour,
Regarde si cela te convient, c'est une fonction qui compte les fonds-couleur des cellule d'une plage à partir d'une couleur définie.
Dans un module
Function CompteCouleurFond(champ As Range, couleurfond As Range)
Application.Volatile
Dim c, temp
temp = 0
cf = couleurfond.Interior.Color
For Each c In champ
If c.Interior.Color = cf Then
temp = temp + 1
End If
Next c
CompteCouleurFond = temp
End Function
Dans le module de feuil
Dim celluleAvant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not IsEmpty(celluleAvant) Then
If Not Intersect(Range(celluleAvant), [C6:E25]) Is Nothing Then Calculate
End If
celluleAvant = Target.Address
End Sub
La formule
=comptecouleurfond(C$6:E$25;B3)
.