Compter des cellules de couleurs

[gregelise]

Bonjour à tous ,
Je cherche une solution pour compter le nombre de cellules de couleurs ( pour le cas ce sont des cellules jaunes) avec excel97
Si quelqu'un à la solution , cela me m'aiderait beaucoup
Merci d'avance

 

[job75]

Re : Compter des cellules de couleurs

Bonjour gregelise,

Essayez cette macro (Alt+F11) :

Sub CompteCouleur()
Dim cel As Range, n As Long
For Each cel In ActiveSheet.UsedRange
If cel.Interior.ColorIndex > 0 Then n = n + 1
Next
MsgBox n & " cellule(s) colorée(s)"
End Sub

A+