Détecter couleur rouge dans un range de cellules

[blord]

Bonjour à tous,

J'aimerais détecter si dans une plage de cellules (A11:K11), une ou plusieurs cellules sont de couleur rouge, si oui mettre un flag dans la cellule L11 et recommencer avec la ligne suivante.

J'utilise le code suivant pour détecter la couleur dans la cellule A1 et mettre un flag dans la cellule L11 :

Sub Rouge()
    With Sheets("PCD092")
        DerLig = .Range("A65536").End(xlUp).Row
        For I = 11 To DerLig
        If .Cells(I, 1).Interior.ColorIndex = 3 Then .Cells(I, 12).Value = "OK"
        Next I
    End With
End Sub

Mais je n'ai pas réussi à le faire sur toute la plage (A11:K11)...

Je pourrais toujours le faire en ajoutant des AND pour chacune des cellules mais il doit sûrement avoir une autre façon de coder le tout...

Merci pour votre aide !

Benoit Lord

 

[Softmama]

Re : Détecter couleur rouge dans un range de cellules

Bonjour Blord,

Je te laisse tester ceci :

Sub Rouge()
    With Sheets("PCD092")
        DerLig = .Range("A65536").End(xlUp).Row
        For I = 11 To DerLig
            For J = 1 to 11
                If .Cells(I, J).Interior.ColorIndex = 3 Then .Cells(I, 12).Value = "OK"
            Next J
        Next I
    End With
End Sub

 

[blord]

Re : Détecter couleur rouge dans un range de cellules

Bonjour Softmama, le forum,

Merci beaucoup,

Ça fonctionne parfaitement !

Bonne fin de journée...

Benoit Lord