lignes coloriées sur plusieurs feuilles

[marskng]

Bonjour,
Je voudrais savoir comment faire pour répéter le coloriage de quelques lignes d'un tableau sur plusieurs feuilles d'un classeur, sachant que les variables ou les noms de cellules de la première colonne sont identiques mais ne sont pas organisées de la même façon par exemple la cellule A3="VARIABLE E" dans la feuille 1, dans la feuille 2 elle serait dans la cellule A5 mais sous le m^me nom "VARIABLE E".
j'ai laissé une pièce jointe pour plus d'explication.merci

 

[Fred0o]

Re : lignes coloriées sur plusieurs feuilles

Bonjour marskng et bienvenue sur le forum.

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

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+

 

[marskng]

Re : lignes coloriées sur plusieurs feuilles

Bonjour marskng et bienvenue sur le forum.

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

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+

Bonjour Fred0o
Merci beaucoup ça marche vraiment 🙂