Prise en compte cellules vides ou selon format

Hello Cyril

1- écrire une formule metricielle (par exemple!)

=SOMME(SI(C1:C7="";1;0)) valider par ctrl+Maj+Entrée

2- écrire une fonction :

Function ComptageCouleur(PlageEntree As Range, CouleurPlage As Range) As Double
Dim Cell As Range, ColorIndex As Integer
ColorIndex = CouleurPlage.Cells(1, 1).Interior.ColorIndex
TempSum = 0
On Error Resume Next
For Each Cell In PlageEntree.Cells
If Cell.Interior.ColorIndex = ColorIndex Then TempSum = TempSum + 1
Next Cell
On Error GoTo 0
Set Cell = Nothing
ComptageCouleur = TempSum
End Function

et l'utiliser dans une cellule exemple :
=ComptageCouleur(B2:I2;$A$1) A1 est la cellule qui comporte la couleur souhaitée et B2 à I2 ta plage de recherche pour comptage des cellules ayant cette couleur.

@+

C@thy

C'est ce que j'essayais de faire, je te l'ai dit pluis haut,
(j'ai office 2000 donc les termes varient un peu, mais c'est la même chose),
mais j'ai toujours le message d'alerte et toi?

C@thy

Ah ouias je savais bien que c'était dans Outils Options mais je cherchais dans l'onglet calcul et c'est dans modification! Pan sur le bec!

C@thy