Microsoft 365 Comparer 2 listes Excel

[toto89]

Bonjour à tous !

J'ai un petit problème de comparaison entre différentes listes.

Je voudrai comparer 2 listes de données d'onglet différent et faire apparaitre dans le 3eme onglet les différences.
ci joint un exemple.

Merci d'avance pour votre aide !

 

[JHA]

Bonjour à tous,

Surement une solution pour Power Query

JHA

 

[vgendron]

Hello

un essai par macro VBA

Hello @JHA

 

[toto89]

Hello

un essai par macro VBA

Hello @JHA

Bonjour vgendron,

je ne vois pas de macro dans le fichier joint ...

Merci

 

[toto89]

Bonjour à tous,

Surement une solution pour Power Query

JHA

Bonjour JHA,

interessant, je ne connais pas trop Power Query, je vais analyser ça !

Merci !

 

[vgendron]

Bonjour vgendron,

je ne vois pas de macro dans le fichier joint ...

Merci

ah oui pardon, je n'ai pas mis le bon fichier
voici:

 

[toto89]

ah oui pardon, je n'ai pas mis le bon fichier
voici:

Super ! C'est exactement ça !
Je vais analyser quelle solution je vais prendre entre PQ et VBA
Merci bcp.
J'avance petit à petit dans mon projet c'est cool et grâce à vous !

 

[toto89]

ah oui pardon, je n'ai pas mis le bon fichier
voici:

Petite question,
J'ai une colonne en plus ajouter, ou je modifie le code ?
J'ai ajouté la colonne D, mais après ?! .... je ne sais pas

Sub compare()

Dim Dico1 As New dictionary ' CreateObject("Scripting.Dictionary")
Dim Dico2 As New dictionary ' CreateObject("Scripting.Dictionary")

With Sheets("Feuil1")
fin = .Range("A" & .Rows.Count).End(xlUp).Row
For i = 2 To fin
clé = .Range("A" & i) & "-" & .Range("B" & i) & "-" & .Range("C" & i) & "-" & .Range("D" & i)
If Not Dico1.Exists(clé) Then
Dico1.Add clé, i
End If
Next i
End With

With Sheets("Feuil2")
fin = .Range("A" & .Rows.Count).End(xlUp).Row
For i = 2 To fin
clé = .Range("A" & i) & "-" & .Range("B" & i) & "-" & .Range("C" & i) & "-" & .Range("D" & i)
If Not Dico2.Exists(clé) Then
Dico2.Add clé, i
End If
Next i
End With

With Sheets("Feuil3")
' MsgBox Dico1.Count
' MsgBox Dico2.Count
For Each clé In Dico1.keys
If Not clé = "" Then
If Not Dico2.Exists(clé) Then
.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 3) = Split(clé, "-")
End If
End If
Next clé

For Each clé In Dico2.keys
If Not clé = "" Then
If Not Dico1.Exists(clé) Then
.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 3) = Split(clé, "-")
End If
End If
Next clé
End With
Set Dico1 = Nothing
Set Dico2 = Nothing
End Sub

 

[vgendron]

oui, si la colonne D est discrimante pour identifier des doublons

il faut aussi modifier le 3 en 4 dans les deux resize
ou alors remplacer 3 par ubound(split(clé,"-")+1)

 

[toto89]

oui, si la colonne D est discrimante pour identifier des doublons

il faut aussi modifier le 3 en 4 dans les deux resize
ou alors remplacer 3 par ubound(split(clé,"-")+1)

Merci Bcp ! très fort !

 

[patricktoulon]

bonjour a tout les deux
@vgendron
c'est pas bon
sauf erreur de ma part on vois bien a droite du bouton la vrai liste sans doublon dans la tienne à gauche il en manque
par exemple on voit bien que julien a disparu ainsi que marc

 

[vgendron]

effectivement @patricktoulon , salut
mais apparemment on a pas compris la meme chose
moi, je ne mets QUE les lignes non communes

 

[patricktoulon]

re
oui oui!! on parle bien de ligne entières non comunes
on voit bien (en autre )dans ton exemple que julien a disparu tu ne garde que julie

servez vous des outils dispos (Excel fait ça très bien )

a moins que notre camarade @toto89 ne souhaite voir que les différentes unique non doublonnées

Sub test()
Dim R1 As Range, r2 As Range
    'détermine la plage  à copier de la feuil1
    Set R1 = Feuil1.Range("A2:c2").Resize(Feuil1.UsedRange.Rows.Count)

    'détermine la plage  à copier de la feuil2
    Set r2 = Feuil2.Range("A2:c2").Resize(Feuil2.UsedRange.Rows.Count)

    With Feuil3

        'vide la feuil3 en gardant les entêtes
        .[a2:c2].Resize(.UsedRange.Rows.Count).Clear

        'copie de la plage r1 dans la première ligne dispo
        R1.Copy .Cells(Rows.Count, 1).End(xlUp).Offset(1)

        'copie de la plage r2 dans la première ligne dispo
        r2.Copy .Cells(Rows.Count, 1).End(xlUp).Offset(1)

        'et enfin on supprime les lignes en double sur 3 colonnes
        .UsedRange.RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlYes
    End With
End Sub

 

[vgendron]

Julien Paris 15/01/2022 est sur les deux feuilles.. enfin. sur ma version..
attention au claquage occulaire.. la feuille 2 n'est pas triée en ordre chrono..

 

[toto89]

effectivement @patricktoulon , salut
mais apparemment on a pas compris la meme chose
moi, je ne mets QUE les lignes non communes

petite question, est-ce possible d'ajouter une colonne et y mettre le nom de l'onglet auquel il appartient ? tjrs en vb