Discussion :

[stargates]

Bonjour,


je voudrais savoir comment comparer deux plages
et mettre les cellules communes en rouge dans la deuxième plage


Avant

Plage1
Marc l1 M2
Jacques l3 M1

Plage2
Marc l1
Thierry l2
Jacques l3
Pol M1
Alain M2

Après

Plage1
Marc l1 M2
Jacques l3 M1

Plage2
Marc l1
Thierry l2
Jacques l3
Pol M1
Alain M2



J'étais parti dans l'idée de ceci(source excellabo)

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
 
Sub ComparePlages()
 Dim Arr1, Arr2
 Arr1 = Range("A4:F12").Value
 Arr2 = Range("i5:J39").Value
 
 For i = LBound(Arr1, 2) To UBound(Arr1, 2)
  For j = LBound(Arr1, 1) To UBound(Arr1, 1)
   If Arr1(j, i) = Arr2(j, i) Then
    Arr2(j, i).Select  'erreur 424 objet requis
    Selection.Font.ColorIndex = 3
   End If
  Next j
 
 Next i
 
 End Sub

Ca plante surement parceque je ne pige pas trop le code
Erreur 424 objet requis
Une idée merci

[helas]

Bonjour,
un exemple

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
 
Sub compare()
 Dim r As Range
 
 Set Sh = Worksheets("Feuil2")
 
 With Sh.Range("B3:C18")
  For Each r In Sh.Range("D3:E10")
   Set c = .Find(r.Value, LookIn:=xlValues)
    If Not c Is Nothing Then
     r.Font.Color = RGB(255, 0, 0)
     firstAddress = c.Address
     Do
      c.Font.Color = RGB(255, 0, 0)
      Set c = .FindNext(c)
     Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
   Next r
 End With
End Sub

[stargates]

Super merci



J'ai commenté cette ligne car elle colore
la première plage. C'était seulement la deuxième qu'il fallait
coloré

Code :

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

1
2
 
' c.Font.Color = RGB(255, 0, 0)

encore merci