Detection de couleur sous excel via vba

Houhou!!!!1 mon premier code VBA

Sub CouleurRouge()
Dim i, j, n As Integer

n=0
For i = 1 To 10
For j = 1 To 10
If Cells(i, j).Interior.ColorIndex = 3 Then n = n + 1
Next j
Next i

Cells(1, 1) = n

End Sub

Ca compte le nombre des cellules rouges entre la ligne 10 et la colone 10
tu peux changer la taille de la recherche en augmentant i et j

ca donne le resultat en A1 tu peux le changer
si tu veux changer la couleur 3 c'est rouge, le reste je sais pas

Bonjour,
pour avoir la liste des colorIndex tu tape F1 et dans recherche PatternColorIndex, propriété
Tu va avoir la page avec les couleurs et leurs numéros.
A+

Pour la macro...

Sub ChercheCouleur()
Dim Coul As Integer
Dim Cel As Range
Dim Compteur As Integer
    Coul = 3
    Sheets("Feuil1").Select ' adapter au nom de la feuille
    For Each Cel In Range("A1:J10") 'adapter la plage aux cellules à tester
        If Cel.Interior.ColorIndex = Coul Then Compteur = Compteur + 1
    Next
    MsgBox "Il y a " & Compteur & " cellules avec la couleur N° " & Coul
End Sub

A+

Merci beaucoup, vous être très efficaces !
J'étais pas loin mais fallait encore chercher :)