For B = 4 To Y Set cel = Test.Range(Test.[C3], Test.Cells(Z, 3)).Find(referencex.Cells(B, 7)) If Not cel Is Nothing Then firstAddress = cel.Address Do Set cel = Test.Range(Test.[C3], Test.Cells(Z, 3)).FindNext(cel) If cel.Offset(, 1).Value = referencex.Cells(B, 8).Value Then Range(Cells(cel.Row, 1), Cells(cel.Row, 7)).Interior.ColorIndex = 41 4'VOICI LA LIGNE QUI MARCHE Else End If Loop While Not cel Is Nothing And cel.Address <> firstAddress End If Next B
un range se définit par une cellule de départ cells(x0,y0) et une cellule de fin cells(x1,y1)=== >>>
cel.Range(Cells(B, 1), Cells(B, 9)).Interior.ColorIndex = 25
Range(Cells(B, 1), Cells(B, 9)).Interior.ColorIndex = 26
Workbooks(Nom1).Worksheets("Caisse").Range(Cells(B, 1), Cells(B, 9)).Interior.ColorIndex = 27
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionderligtoto = workbooks("toto").sheets(""blablatoto").range("C" & rows.count).end(xlup).row
derligtata = workbooks("ara").sheets(""blablatata").range("G" & rows.count).end(xlup).row
workbooks("toto").sheets("blablatoto").Range("A" & i & ":" & "I" & i).Interiror.colorindex = .....
For I = 4 To Y Set cel = Test.Range(Test.[C3], Test.Cells(Z, 3)).Find(referencex.Cells(I, 7)) If Not cel Is Nothing Then firstAddress = cel.Address Do Set cel = Test.Range(Test.[C3], Test.Cells(Z, 3)).FindNext(cel) Set SuivReferenceX = cel.Offset(, 1).Value Set SuivTest = Test.Range("D" & I).Value If SuivReferenceX = SuivTest Then cel.EntireRow.Interior.ColorIndex = 46 Else End If Loop While Not cel Is Nothing And cel.Address <> firstAddress End If Next I
Do Set cel = Test.Range(Test.[C3], Test.Cells(Z, 3)).FindNext(cel) If cel.Offset(, 1).Value = Test.Range("D" & I).Value Then cel.EntireRow.Interior.ColorIndex = 46 End If Loop While cel.Address <> firstAddress
If cel.Offset(, 1).Value = Test.Range("D" & I).Value Then R = cel.Row Test.Range(Test.Cells(R, 1), Test.Cells(R, 9)).Interior.ColorIndex = 46 End If