Detection de couleur sous excel via vba Résolu/Fermé

Question

Bonjour,
j'aimerai savoir comment faire pour détecter s'il existe une cellule en rouge (par exemple) dans une feuille excel et le cas écheant incrémenté un compteur avec le nombre de cellules trouvé.
Je n'ai réussit qu'a detecter si la cellule selectionné est rouge ou pas mais ça il suffit d'avoir des yeux...
Je ne connais pas très bien le vba mais je maitrise pas mal lle vb.
Pourriez vous m'aider s'il vous plait?!
Merci d'avance

anocheda · Answer

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

lermite222 · Answer

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+

lermite222 · Answer

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+

Kilyox · Answer

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

Detection de couleur sous excel via vba

4 réponses

Discussions similaires