Detection de couleur sous excel via vba

Résolu/Fermé
Kilyox - 28 juil. 2008 à 20:55
 Kilyox - 30 juil. 2008 à 11:05
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
A voir également:

4 réponses

anocheda Messages postés 54 Date d'inscription jeudi 22 mai 2008 Statut Membre Dernière intervention 17 novembre 2008 3
28 juil. 2008 à 21:26
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
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 194
29 juil. 2008 à 00:21
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+
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 194
29 juil. 2008 à 00:38
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+
0
Merci beaucoup, vous être très efficaces !
J'étais pas loin mais fallait encore chercher :)
0