Voila une méthode pour compter le nombre de cellules en fonction de leurs couleurs.
Tout d’abord ouvrez votre fichier Excel.
Sauvegardez le au format Excel Macros autorisées (.xlsm).
Appuyez sur les touches ALT + F11 pour ouvrir l’éditeur Visual Basic pour Application.
Faites un clic droit sur VBAProject dans la fenêtre de gauche. Puis choisissez Insérer>>Module
Dans le panneau de droite collez le code ci-dessous :
Function NbreCellulesCouleur(Plage As Range, CelluleCouleur As Range) As Long
‘Compter le nombre de cellules de la meme couleur qu’une cellule dans une plage donnée
‘Plage: plage de cellules à inspecter
‘CelluleCouleur: Cellule de la couleur cible
Application.Volatile
Dim Cellule As Range
Dim Couleur As Long
Couleur = CelluleCouleur.Interior.ColorIndex
For Each Cellule In Plage
If Cellule.Interior.ColorIndex = Couleur And Not IsEmpty(Cellule) Then
NbreCellulesCouleur = NbreCellulesCouleur + 1
End If
Next Cellule
End Function
Sauvegardez et fermez VBA.
De retour sur Excel Placez les cellules de couleur comme sur la capture d’écran ci-dessus et inserez dans la cellule E3 la formule suivante :
=NbreCellulesCouleur($A$3:$A$100;D3)
Définition : NbreCellulesCouleur(Plage de cellules à contrôler ; Cellule de référence couleur)
Placez ce code dans les cellules E4 à E13 (pour l’exemple) en mettant à jour la cellule de référence couleur.
Sauvegardez et fermez votre fichier xlsm et réouvrez le puis autorisez les macros.
PS : la mise à jour des résultats du comptage est automatique mais pas immédiate. Il y a un léger délai avant la mise à jour.