Une formule avec couleur cellule

Bjj Ouaf,Bjr au forum,

quand tu parles de couleurs de cellules,tu parles de la police ou du remplissage ?
bonne journée à tous

Bonjour

Voici un autre code, la couleur n'est pas donnée par un numéro, mais par la couleur dans une cellule.
Public Function NbColor(Plage As Range, vCellcolor As Range) As Byte
Dim vColorTest As Long
Dim Compteur As Long
Dim vColorCell As Range

Compteur = 0
vColorTest = vCellcolor.Interior.Color
For Each vColorCell In Plage
If vColorCell.Interior.Color = vColorTest Then
Compteur = Compteur + 1
End If
Next vColorCell

NbColor = Compteur
End Function

Par exemple :
A1:A20 est la plage de cellule susceptible d'avoir les couleurs
A21 est la référence de la cellue qui contient la couleur à tester.
Et de saisir dans une cellule =NbColor(A1:A20;A21)

@+Jean-Marie

bonjour,

c'est de la couleur de la cellule que je parlais à l'origine mais si ce n'est pas possible je peux modifier la couleur de la police !!!

A+ merci