J'ai une macro qui me permet de compter le nombre de cellules colorées, il faudrait que cette macro fonctionne pour chaque feuille de mon classeur excel.
Voici le code VBA
Function SomCool(Zne As Range, Couleur As String)
Application.Volatile True
Select Case Couleur
Case "jaune"
Couleur = 6
Case ""
Couleur = -4142
End Select
For Each cell In Zne
If cell.Interior.ColorIndex = Couleur Then cvSomme = cvSomme + 1
Next
SomCool = cvSomme
End Function
J'ai mis ce code dans un module lié à une feuille.
