Detection de couleur sous excel via vba

[Résolu/Fermé]
Signaler
-
 Kilyox -
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

4 réponses

Messages postés
54
Date d'inscription
jeudi 22 mai 2008
Statut
Membre
Dernière intervention
17 novembre 2008
3
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
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 181
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+
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 181
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 :)