Détecter couleur rouge dans un range de cellules

  • Initiateur de la discussion Initiateur de la discussion blord
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

blord

XLDnaute Impliqué
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 :

Code:
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
 
Re : Détecter couleur rouge dans un range de cellules

Bonjour Blord,

Je te laisse tester ceci :

VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
0
Affichages
459
Réponses
3
Affichages
582
Réponses
5
Affichages
468
Retour