Boucle couleur

Bonjour,

Je cherche à ajouter une colonne à la fin de mon fichier où ce serait écrit "Rouge" lorsque la couleur de la première ligne de chaque bloc est rouge. Si c'est "Vert" écrire "Vert" sinon vide.

Dans mon exemple, j'ai mis seulement 2 blocs donc il faut regarder la cellule AD8 et AD19.

Par contre, mon fichier varie en bloc et peux avoir des nombres différents de ligne dans chaque bloc.

Merci pour les suggestions

bonsoir,

une proposition

Sub aargh()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        st = 0
        For i = 1 To dl
            If .Cells(i, 1).Interior.Color = vbRed Then
                st = 1
            ElseIf .Cells(i, 1).Interior.Color = vbGreen Then
                st = 2
            ElseIf .Cells(i, 1).Interior.ColorIndex = xlNone Then
                st = 0
            End If
            Select Case st
            Case 1
                .Cells(i, "ak") = "Rouge"
            Case 2
                .Cells(i, "ak") = "Vert"
            End Select
        Next i
    End With
End Sub

Merci pour la réponse rapide.

Avec un peu adaptation, car je cherchais le mot "rouge" et non la couleur de cellule rouge.

Cela fonctionne super bien. Merci beaucoup!

Sub Bloc_couleur()

With Sheets("Importation")

dl = .Cells(Rows.Count, 4).End(xlUp).Row

st = 0

For i = 1 To dl

If .Cells(i, 34).Value = "Rouge" Then

st = 1

ElseIf .Cells(i, 34).Value = "Rouge" Then

st = 2

ElseIf .Cells(i, 34).Value = "" Then

st = 0

End If

Select Case st

Case 0

.Cells(i, "ao") = ""

Case 1

.Cells(i, "ao") = "Rouge"

Case 2

.Cells(i, "ao") = "Vert"

End Select

Next i

End With

End Sub