Bonjour le forum,
pouvez vous m aider sur ce problème?
J'ai deux feuilles (distribution et rentrée), dans la colonne A de chaques feuilles un N° de référence. je voudrais quand le N° de reference se trouve dans les deux feuilles, surlignait la ligne concernée dans la feuille distribution.
Voici mon code mais l'erreur suivante est signalée "for each ne peut iterer que sur un objet collection ou un tableau."

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
Sub ColorSiRentré()
 
Dim i As Long
Dim DerLigDistri As Integer
Dim DerLigrentré As Integer
 
'de A3 jusqu'a la derligne 
DerLigDistri = Sheets("Distribution").Range("A3").End(xlDown).Row
DerLigrentré = Sheets("Rentrée").Range("A3").End(xlDown).Row
 
'pour chaque ligne colonne a en feuil "distribution"
For Each C In DerLigDistri
 
    For i = 3 To DerLigrentré
'si la reference existe dans la feuille "rentrée" et "distribution"
        If C = Sheets("Rentrée").Cells(i, 1) Then
'alors colorie la ligne dans la feuille distribution
        EntireRow.Interior.ColorIndex = 3
        End If
 
    Next i
 
End Sub
Merci pour votre aide