Compter le nombre de cellules en fonction de leurs couleurs

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.