Bonjour, Djiloun, Christophe
Alors comme je fais jamais les choses comme tout le monde, c'est une Function qui calcule le nombre de cellule, voici le code à mettre dans un module :
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)
Cette Function ne gére pas les mise en formes conditionnelles.
Bonne journée
@+Jean-Marie