Totaliser des cellules de couleurs

Bonjour,

J'essaie depuis un petit temps d'établir un tableau pour répertorier des congés payés de salariés.

Cependant, je voudrais pouvoir connaître le nombre de cellules d'une certaine couleur.

J'ai essayé la macro suivante :
Function SommeCouleur(Plage As Range, CelCouleur As Range) As Long
Dim Couleur: Couleur = CelCouleur.Interior.ColorIndex
For Each Cell In Plage
If Cell.Interior.ColorIndex = Couleur Then SommeCouleurs = SommeCouleurs + 1
Next
End Function
Avec l'exemple suivant :
Cellules A1:A5 sont en rouge
Cellules A6:A10 sont en vert

Dans la cellule A11 j'ai indiqué la formule suivante :
=SommeCouleur(A3:A7;A3)
Je devais avoir 3 comme résultat et j'ai 0.

Y a-t-il quelque chose qui manque? Ou que j'aurais mal fait?

Merci d'avance pour votre aide.

Bonjour,

C'est une toute petite erreur, la fonction se nomme SommeCouleur et tu incrémentes SommeCouleurS donc forcément SommeCouleur reste à 0.
Enlève le S et ça marche, par contre ce n'est pas dynamique, si une cellule change de couleur il faut actualiser la formule, il y a surement un moyen pour la rendre active à chaque changement.

A+