vba encore

[chilo]

bonsoir le fil
l'année 2005 est vive l'anné 2006

cela dit nos petits soucis sont toujours mais heureusement que vous là
je voudrais si possible comparer plusieurs feuilles (12) et afficher certaines lignes
merci [file name=comparerfeuille_20060103200020.zip size=2169]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/comparerfeuille_20060103200020.zip[/file]

 

[Hervé]

bonsoir chilo

en piece jointe une proposition, mais je t'avoue que tes explications sont peu claires.

salut [file name=comparerfeuille_20060103212131.zip size=9990]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/comparerfeuille_20060103212131.zip[/file]

 

[Bernard_XLD]

Bonjour Chilo, Hervé

ben moi j'ai compris qu'il fallait mettre en couleur les lignes selon les critères
voila donc un code qui fait cela

A+

Sub Essai()
Dim Compteur As Long, Compteur2 As Integer
For Compteur2 = 1 To WorksheetFunction.Min(ActiveWorkbook.Worksheets.Count, 12)
    With Sheets(Compteur2)
        .Range('A2:G2').Interior.ColorIndex = 6
        For Compteur = 3 To .Range('A65536').End(xlUp).Row
            If .Cells(Compteur, 7).Value = .Range('G2').Value Then
                If .Cells(Compteur, 1).Value = .Range('A2').Value And .Cells(Compteur, 2).Value = .Range('B2').Value And _
                    .Cells(Compteur, 3).Value = .Range('C2').Value And .Cells(Compteur, 4).Value = .Range('D2').Value And _
                    .Cells(Compteur, 5).Value = .Range('E2').Value And .Cells(Compteur, 6).Value = .Range('F2').Value Then
                    .Range(.Cells(Compteur, 1).Address & ':' & .Cells(Compteur, 7).Address).Interior.ColorIndex = 6
                Else
                    .Range(.Cells(Compteur, 1).Address & ':' & .Cells(Compteur, 7).Address).Interior.ColorIndex = 3
                End If
            End If
        Next Compteur
    End With
Next Compteur2
End Sub