Comaprer 2 col <> dans 2 feuil vba

[ivan34]

Bonsoir

J'ai 2 colonnes qui peuvent être de taille <> dans 2 feuilles. J'ai développé ceci, mais le résultat ne me convient pas.
Je voudrais que les lignes <> qui se trouvent dans la feuil1 s'affichent en col G et H dans la feuil2.

Ma Macro:

Sub ComparaisonDansunefeuille()
'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 Not Plage Is Nothing Then

c.Range("G1") = ""


Else

c.Range("G1") = c.Value

End If
End If
Next
End Sub

Merci par avance de votre aide

 

[JNP]

Re : Comaprer 2 col <> dans 2 feuil vba

Bonjour Ivan34 🙂,
Merci de lire la charte du forum et de rester sur ton précédent fil https://www.excel-downloads.com/threads/comparer-2-colonnes-differentes-sur-2-feuilles.116327/
Bonne journée 😎