Microsoft 365 Extraire les différences entre 2 colonnes

[Sissou71]

Bonjour,

J'ai un fichier dans lequel des utilisateurs renseignent à la main des valeurs affichées dans un outil de saisie (Feuille A dans le fichier ci-joint)
Je récupère un csv de l'outil de saisie avec toutes les valeurs existantes (Feuille B dans le fichier ci-joint)

J'aimerai à des fins de contrôle (erreur de frappe, oubli de saisie...) afficher dans une nouvelle feuille les données qui sont différentes pour chacune des feuilles (feuille Différence)

Par MFC je peux colorer les cellules en double mais : mes données ne sont pas dans la même feuille et mon besoin est d'afficher uniquement les valeurs trouvées dans une feuille et non présentes dans l'autre pour pouvoir effectuer les corrections nécessaires.

Est-ce possible et comment ?
Cécile

 

[vgendron]

Bonjour

Avec cette macro par exemple

Sub CompareListes()
Dim DicoA As Object
Dim DicoB As Object

Set DicoA = CreateObject("Scripting.dictionary")
Set DicoB = CreateObject("Scripting.dictionary")
With Sheets("A")
    LastLine = .Range("B" & .Rows.Count).End(xlUp).Row
    For i = 2 To LastLine
        clé = .Range("B" & i)
        If Not DicoA.exists(clé) Then
            DicoA.Add clé, i
        End If
    Next i
End With
With Sheets("B")
    LastLine = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To LastLine
        clé = .Range("A" & i)
        If Not DicoB.exists(clé) Then
            DicoB.Add clé, i
        End If
    Next i
End With

With Sheets("Différence")
    For Each clé In DicoA.keys
        If Not DicoB.exists(clé) Then
            .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = clé
        End If
    Next clé
    
    For Each clé In DicoB.keys
        If Not DicoA.exists(clé) Then
            .Range("B" & .Rows.Count).End(xlUp).Offset(1, 0) = clé
        End If
    Next clé
    
End With

End Sub

 

[JHA]

Bonjour à tous,

Un exemple de MFC sur fichier

JHA

 

[Cousinhub]

Bonjour (ou Re-),
Avec 365
Ajout de 2 listes dynamiques "ListA" et "ListB" (formules dans l'onglet "Différence", colonne G)
La formule pour la 1ère diff :

=SIERREUR(UNIQUE(FILTRE(ListA;ESTNA(EQUIVX(ListA;ListB;0))));"")

Le fichier

 

[Sissou71]

Bonjour

Avec cette macro par exemple

Sub CompareListes()
Dim DicoA As Object
Dim DicoB As Object

Set DicoA = CreateObject("Scripting.dictionary")
Set DicoB = CreateObject("Scripting.dictionary")
With Sheets("A")
    LastLine = .Range("B" & .Rows.Count).End(xlUp).Row
    For i = 2 To LastLine
        clé = .Range("B" & i)
        If Not DicoA.exists(clé) Then
            DicoA.Add clé, i
        End If
    Next i
End With
With Sheets("B")
    LastLine = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To LastLine
        clé = .Range("A" & i)
        If Not DicoB.exists(clé) Then
            DicoB.Add clé, i
        End If
    Next i
End With

With Sheets("Différence")
    For Each clé In DicoA.keys
        If Not DicoB.exists(clé) Then
            .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = clé
        End If
    Next clé
   
    For Each clé In DicoB.keys
        If Not DicoA.exists(clé) Then
            .Range("B" & .Rows.Count).End(xlUp).Offset(1, 0) = clé
        End If
    Next clé
   
End With

End Sub

Merci Vgendron je me doutais que ca passerait facilement avec une macro. J'essayais d'éviter dans mon entreprise ils ont restreints les fichiers avec macro sur sharepoint et personne si je m'absente ne connait les macros excel. Alors que les formules ils peuvent au moins les lire.

 

[Sissou71]

Bonjour (ou Re-),
Avec 365
Ajout de 2 listes dynamiques "ListA" et "ListB" (formules dans l'onglet "Différence", colonne G)
La formule pour la 1ère diff :

=SIERREUR(UNIQUE(FILTRE(ListA;ESTNA(EQUIVX(ListA;ListB;0))));"")

Le fichier

Merci beaucoup j'ai pris votre solution qui fonctionne parfaitement

 

[Jean-Eric]

Bonjour,
Idem peu ou prou cousinhub, que je salue, avec tableaux structurés et MFC.
Cdlt.

 

[Sissou71]

Bonjour à tous,

Un exemple de MFC sur fichier

JHA

Merci ca fonctionne très bien mais j'ai choisi une autre solution qui permettait de n'avoir que les données différentes avec les fonctions Filtre et Unique