Discussion :

[dodo28]

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

[mercatog]

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
Dim i As Long
Dim DerLigDistri As long
Dim DerLigrentré As long
dim plage as range, C as range
 
'de A3 jusqu'a la derligne 
DerLigDistri = Sheets("Distribution").Range("A3").End(xlDown).Row
DerLigrentré = Sheets("Rentrée").Range("A3").End(xlDown).Row
set plage=Sheets("Distribution").Range("A3:A" & DerLigDistri)
 
'pour chaque ligne colonne a en feuil "distribution"
For Each C In plage 
    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
            rows(i).Interior.ColorIndex = 3
        End If 
    Next i
Next C
set plage=nothing 
End Sub

[laetitia]

bonjour dodo28 l'ami mercatog le forum une autre methode

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
Sub Com()
  Dim c, e As Variant, m1 As Object, m2 As Object
  Application.ScreenUpdating = False
   Set m1 = CreateObject("Scripting.Dictionary")
  Set m2 = CreateObject("Scripting.Dictionary")
  Sheets("Distribution").Activate
  For Each c In Range("a3", Cells(Rows.Count, "a").End(xlUp))
    If Not m1.Exists(c.Value) Then m1.Add c.Value, c.Address
  Next
  Sheets("Rentrée").Activate
  For Each c In Range("a3", Cells(Rows.Count, "a").End(xlUp))
   If Not m2.Exists(c.Value) Then m2.Add c.Value, c.Address
  Next
  Sheets("Distribution").Activate
  For Each e In m1
  If m2.Exists(e) Then
Range(m1.Item(e)).EntireRow.Interior.ColorIndex = 3
 Else
Range(m1.Item(e)).EntireRow.Interior.ColorIndex = 2
 End If: Next
End Sub

[dodo28]

Bonsoir Mercatog et Laetitia

Mon code revisé par Mercatog ne marche pas, il ne buggue pas (déja une bonne chose) mais ne me surligne pas les bons doublons.
Si vous pouvez m'expliquer pourquoi?

Celui a Laetitia marche bien.

excusez je dois quitter je relirais le forum ce soir, je marquerai resolu aprés
Je vous remercie tous les deux

quand on fait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

doit on pas le remettre en true à la fin du code?

[mercatog]

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
sub test()
Dim i As Long, DerLigDistri As long, DerLigrentré As long
dim plage as range, C as range
 
'de A3 jusqu'a la derligne 
DerLigDistri = Sheets("Distribution").Range("A3").End(xlDown).Row
DerLigrentré = Sheets("Rentrée").Range("A3").End(xlDown).Row
set plage=Sheets("Distribution").Range("A3:A" & DerLigDistri)
 
'pour chaque ligne colonne a en feuil "distribution"
For Each C In plage 
    For i = 3 To DerLigrentré
'si la reference existe dans la feuille "rentrée" et "distribution"
        If Sheets("Rentrée").Cells(i, 1).value=C.value Then
'alors colorie la ligne dans la feuille distribution
            Sheets("Distribution").rows(C.row).Interior.ColorIndex = 3
        End If 
    Next i
Next C
set plage=nothing 
End Sub

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

doit on pas le remettre en true à la fin du code?

Oui et non... Si tu as à lire les données en cours de macro (situation raricime s'il en est) alors la mise à jour de l'écran s'impose. Dans tous les autres cas, la mise à jour se réalise en fin de macro.
Bref dans ton cas, c'est inutile.
Le seul cas que j'imagine être concerné (sans aucune certitude) serait peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Plage = Application.InputBox("Sélection de cellules ...", Type:=8)

sans aucune garantie.