bonjour voila j'aimerais comparez des données entre 2 feuilles ,si deux cellule sont identiques je dois mettre la ligne en couleur.
voici mon code.....
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 Sheets("mag").Select Cells.Select Selection.Interior.ColorIndex = xlNone Sheets("bdt").Select Cells.Select Selection.Interior.ColorIndex = xlNone Dim derlign As Long Sheets("données").Select derlign = [A65000].End(xlUp).Row Sheets("mag").Select Dim i As Integer Dim d As Integer Dim derlig As Long d = 1 derlig = [A65000].End(xlUp).Row For i = 1 To derlig For d = 1 To derlign If Sheets("données").Range("C" & d) = Sheets("Mag").Range("c" & i) Then If Sheets("données").Range("E" & d) = Sheets("Mag").Range("I" & i) Then Rows(i).Select Selection.Interior.ColorIndex = 3 End If End If Next d Next i
Partager