I
ivan34
Guest
Bonsoir
En faite j'ai une macro. Ma macro fonctionne très bien sauf qu'elle m'affiche le résultat de feuil1 dans la feuil1 avec le résultat de sa col2 alors que je voudrais qu'en face de la col2 de la feuil1 s'affiche le résultat de la feuil2 des col A et B.
Je veux garder cette même macro car elle m'affiche bien les différences qu'il y a entre les 2 col des 2 feuil. Je voudrais avoir par contre les différences qui s'affichent. Voila 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("D1") = ""
Else
c.Range("D1") = c.Value
End If
End If
Next
End Sub
Merci par avance de votre aide
En faite j'ai une macro. Ma macro fonctionne très bien sauf qu'elle m'affiche le résultat de feuil1 dans la feuil1 avec le résultat de sa col2 alors que je voudrais qu'en face de la col2 de la feuil1 s'affiche le résultat de la feuil2 des col A et B.
Je veux garder cette même macro car elle m'affiche bien les différences qu'il y a entre les 2 col des 2 feuil. Je voudrais avoir par contre les différences qui s'affichent. Voila 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("D1") = ""
Else
c.Range("D1") = c.Value
End If
End If
Next
End Sub
Merci par avance de votre aide