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