✅ Calcul de cellules de couleur contenant du texte

En fait pour cela tu peux améliorer la fonction Couleur et définir une fonction NBCouleur qui compte dans une plage donnée le nombre de cellules d’une couleur choisie:

Function NBCouleur(ByRef Plage As Range, Couleur As Long) As Long
    Dim c As Range
    Dim nb As Long
    nb = 0
    For Each c In Plage
        If c.Interior.ColorIndex = Couleur Then
            nb = nb + 1
        End If
    Next c
    NBCouleur = nb
End Function

Tu peux du coup combiner les 2 formules en une seule

nbcouleur.xlsm (14,3 Ko)