Repport des differences

[CG2000]

Bonjour,

J'ai besoin d'aide pour modifier le code suivant :

Sub AvecCopierColler() 
Dim Ws1 As Worksheet, Ws2 As Worksheet, Ws3 As Worksheet, C1 As Byte, C2 As Byte, Derlign As Long 
Set Ws1 = Sheets("Feuil1") 
Set Ws2 = Sheets("Feuil2") 
Set Ws3 = Sheets("Synthese") 
    Application.ScreenUpdating = False 
    For i = 2 To Ws1.Range("A65000").End(xlUp).Row 
        For j = 2 To Ws2.Range("A65000").End(xlUp).Row 
        If Ws1.Cells(i, 1) = Ws2.Cells(j, 1) Then 
            Derlign = Ws3.Range("A65000").End(xlUp).Row + 1 
            With Ws1 
                C1 = .Cells(i, 1).End(xlToRight).Column 
                .Range(.Cells(i, 1), .Cells(i, C1)).Copy 
                Ws3.Cells(Derlign, 1).PasteSpecial Paste:=xlValues 
            End With 
            With Ws2 
                C2 = .Cells(i, 1).End(xlToRight).Column 
                .Range(.Cells(j, 2), .Cells(j, C2)).Copy 
                Ws3.Cells(Derlign, C1 + 1).PasteSpecial Paste:=xlValues 
                End With 
        Application.CutCopyMode = False 
        End If 
        Next 
    Next 
    Application.ScreenUpdating = True 
    
End Sub

si sur une mème ligne la cellule de "Feuil1" est = à ("Feuil2") repport sur la "Synthese"
idem
si sur une mème ligne la cellule de "Feuil2" est = à ("Feuil1") repport sur la "Synthese"
et ainsi de suite ...

Maintenant je cherche à obtenir et ni arrivant pas je sollicite encore une fois votre aide :

si sur une mème ligne la cellule de "Feuil1" est différente à ("Feuil2") repport sur la "Synthese"
idem
si sur une mème ligne la cellule de "Feuil2" est différente à ("Feuil1") repport sur la "Synthese"

et ainsi de suite ...... et donc ne repporte plus les identiques ..... mais uniquement que les différents.

Merci

 

[wilfried_42]

Re : Repport des differences

Bonjour

à essayer :

        If Ws1.Cells(i, 1) <> Ws2.Cells(j, 1) Then

 

[CG2000]

Re : Repport des differences

Bonsoir wilfried_42,

Celà ne fonctionne pas ! une autre piste éventuellement pour résoudre mon problème ?
Merci. A+