Re : Comparer 2 colonnes différentes sur 2 feuilles
Bonjour
Sub ComparaisonDansunefeuille()
j = 1
'comparaison dans une feuille dans un seul classeur
Set sh2 = Sheets("Feuil1").Range("A1:B500")
Set sh1 = Sheets("Feuil2").Range("A1:B500")
For Each c In sh1
MaValeur = c.Value
If MaValeur <> "" Then
Set Plage = sh2.Columns("A:B").Cells.Find(MaValeur, lookat:=xlWhole)
If Plage Is Nothing Then
Sheets("feuil1").Cells(j, 4).Value = c.Value
j = j + 1
End If
End If
Next
End Sub
on balaye la feuille 2
on écrit la liste des valeurs de la feuille 2 non trouvées en feuille1