lignes coloriées sur plusieurs feuilles

Fred0o à dit:

Bonjour marskng et bienvenue sur le forum.

Voici un code testé qui devrait répondre à tes besoins.

VB:

Sub Copie_Coul()
    Dim i As Integer, j As Integer, c As Worksheet, tblo()
    tblo = Feuil1.Range("A1:A" & Feuil1.Range("A65536").End(xlUp).Row)
    For Each c In Worksheets
        If c.Name <> "Feuil1" Then
            For i = 1 To c.Range("A65536").End(xlUp).Row
                For j = 1 To UBound(tblo)
                    If c.Cells(i, 1) = tblo(j, 1) Then
                        c.Range("A" & i & ":G" & i).Interior.ColorIndex = Feuil1.Range("A" & j).Interior.ColorIndex
                        Exit For
                    End If
                Next
            Next
        End If
    Next
End Sub

A+

Cliquez pour agrandir...