Compter le nombre de cellules d'une certaine couleur de remplissage

Voilà la situation :

J'ai une colonne comportant différentes couleurs de remplissage qui correspondent chacune à quelque chose. Mon souhait est de trouver un moyen ou une formule pour compter le nombre de cellule de chaque couleur sans avoir à ajouter une autre colonne me permettant de le faire. Et une fonction qui se met à jour automatiquement.

J'ai essayé d'enregistrer un module sur l'interface VBA mais lorsque je veux enregistrer mon document, Excel me dit que "les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro".

À savoir que ce document est sur un serveur et peut être ouvert par plusieurs personnes mais pas en même temps (je ne sais pas si cette information est utile)

Bonjour,

Pensez à faire une petit présentation ici

Pour votre souci,

J'ai essayé d'enregistrer un module sur l'interface VBA mais lorsque je veux enregistrer mon document, Excel me dit que "les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro".

En vous lisant je me pose la question de savoir si vous n'avez pas choisi le format XLSX....
Si vous avez des codes ou même un module vide, vous devez enregistrer votre fichier au format XLSM.

Regardez aussi ce lien avec une idée de fonction qui fait la somme si cellule en couleur --> https://forum.excel-pratique.com/s/goto/1080376

Pensez à mettre un fichier représentatif de votre tableau....ce sera plus facile de comprendre le résultat que vous attendez

Si ok

Cordialement

[s=co-c0504d][/s]

EDIT : Placer le code dans VBE comme ceci :

• Sur le clavier, appuyez sur les touches ALT + FN + F11 (ou ALT + FN +F11) pour accéder à VBE (éventuellement vous devriez voir l'onglet developpeur dans le menu excel)
• Allez dans le Menu / Insertion et choisissez l'option "Insertion" -> "Module"
• Dans la fenêtre vierge, collez le code ci-dessous

Function NbSiCouleur(Plage As Range, Couleur As Long) As Long
Application.Volatile True
Dim Cel As Range
For Each Cel In Plage
    If Cel.Interior.Color = Couleur Then
        NbSiCouleur = NbSiCouleur + 1
    End If
Next Cel
End Function

Dans une cellule, mettez cette formule --> =Nbsicouleur(B1:B5;65535) avec :
- B1:B5 étant la plage de données
- 65535 étant la couleur choisie (ici c'est la jaune)

- Enregistrer votre fichier au format XLSM (pour accepter l'utilisation des macros)

Bonjour Stage.emp,

As-tu une idée de ce qui décide de la couleur de tes cellules?