Sommer des cellules de meme couleur sous excel 2007 et 2010

Sub CompteCouleur()
Dim Compte As Integer
'pour remettre la couleur à rien
Range("A1:D8").Interior.ColorIndex = xlColorIndexNone
'les cellules surveillées
For Each c In Range("A1:D8")
'condition fixée
If c >= "A" Then
'couleur appliquée ici rouge
c.Interior.ColorIndex = 3
'pour faire la somme des cellules remplies
Compte = Compte + 1
End If
Next
'pour afficher notre somme en D9
Range("D9") = Compte
End Sub



Function ColorCountIf(SearchArea As Object, BgColor As Range) As Integer

Application.Volatile True
ColorCountIf = 0
MaCoul = BgColor.Interior.ColorIndex
For Each Cell In SearchArea
If Cell.Interior.ColorIndex = MaCoul Then ColorCountIf = ColorCountIf + 1
Next Cell

End Function




Sub CompteCouleur2()
Dim Compte As Integer

'les cellules surveillées
For Each c In Range("B1:B541")
'condition fixée
If c.Interior.ColorIndex = 34 Then

'pour faire la somme des cellules remplies
Compte = Compte + 1
End If
Next
'pour afficher notre somme en C1
Range("C1") = Compte
End Sub