Compter des cellules coloriées avec une MFC?

[ssb1]

Bonsoir,
Je voudrais faire une formule pour compter les cellules de la colonne B en fonction de la couleur.
J’ai tenté, sans succès, en partant du code suivant :
Function NumCouleur(cellule As Range) As Integer
Application.Volatile
NumCouleur = cellule.Interior.ColorIndex
End Function
Je ne parviens pas à faire afficher les numéros de couleur avec la fonction ci-dessus portée.
Le blocage est peut être lié au fait que les couleurs en question proviennent d’une MFC.
Merci à tous,. Fichier joint.fichier compter couleur.xlsx (502,7 Ko)

[Zebulon]

Bonjour,

Comme tu l’indiques dans ton post, il n’est pas possible de compter les couleurs issues d’une MFC.
Une proposition avec RECHERCHEV et des colonnes qu’il est possible de cacher.

Bonne fêtes,
Cordialement.
fichier compter couleur.xlsx (505,4 Ko)

[Mimimathy]

Bonjour,
Bonjour Zebulon,

On peut aussi utiliser NB.SI() et NB.SI.ENS() en utilisant les formules des MFC
fichier compter couleur.xlsx (502,7 Ko)

[ssb1]

Bonjour,
Meric beaucoup, j’ai été tenté au début par la solution de Zebulon avant de me rabattre sur l’option de l’incontournable Mimmathy plus accessible à mon niveau.
Cordialement