XL 2021 Comparaison de 2 colonnes pas totalement identiques

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2025

• #2

Bonjour Rouxpil,
Peut être avec cette MFC :

VB:

=ET($B1<>"";NB.SI($A:$A;$B1)=0)

Nombre de titres colonne A : 3270
Nombre de titres colonne B : 9097
Titre en B absent en A : 6670

 

Pièces jointes

• Comparaison liste.xlsx

  242.9 KB · Affichages: 8

Dernière édition: 28 Décembre 2025

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Décembre 2025

• #3

Bonjour
Pas tres rapide, mais

 

Pièces jointes

• Comparaison liste.xlsm

  277 KB · Affichages: 9

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 28 Décembre 2025

• #4

Bonjour à tous,
liste des titres de B qui ne sont pas dans A
=FILTRE(B1:B9097;NB.SI(A1:A3270;B1:B9097)<>1)

Crdlmt

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Décembre 2025

• #5

Bonjour le forum,

Pas du tout le même résultat, en colonne B et pas en A :

- sylvanu 6670

- sousou 6206

A+

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2025

• #6

Re, bonjour Job,
Après vérif avec des nb.si, on trouve bien 6670 titres présent en B mais pas en A.

 

Vote positif 0 Vote négatif

sousou

XLDnaute Barbatruc

• 28 Décembre 2025

• #7

re
La différence semble du au espaces en fin de ligne colonne a,
Mais 6206, pour moi c'est les absents?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 28 Décembre 2025

• #8

Re,
Exact, les MFC et nb.si ne tiennent pas compte des espaces finaux.
Mais aussi des trucs plus vicieux :
A gauche "Coeur de pirate" et à droite "Cœur de pirate" : le VBA ne fait pas la distinction entre "oe" et "œ" mais la MFC , si.
On n'est pas sorti de l'auberge. 🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Décembre 2025

• #9

J'ai commencé par faire le nettoyage des 2 colonnes avec cette macro :

VB:

Sub Epure()
Dim c As Range
For Each c In Columns("A:B").SpecialCells(xlCellTypeConstants)
    c = Application.Trim(c) ôte les espaces superflus
    c = Replace(c, "oe", "œ")
Next
End Sub

La MFC de sylvanu colore 6215 cellules en colonne B.

Pour obtenir exactement le même résultats avec la macro de sousou je l'ai modifiée comme suit :

VB:

Sub debB()
Set zone = Sheets("mp3tag").UsedRange.Columns(2).Rows
Application.ScreenUpdating = False
For Each i In zone
    Set r = Sheets("mp3tag").Columns(1).Find(i.Value, , xlValues, xlWhole)
    If r Is Nothing Then i.Interior.Color = RGB(555, 55, 55): n = n + 1
    Application.StatusBar = i.Row
Next
MsgBox n
End Sub

 

Pièces jointes

• Comparaison liste - sylvanu.xlsx

  300.9 KB · Affichages: 4
• Comparaison liste - sousou.xlsm

  259.7 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Décembre 2025

• #10

sylvanu à dit:

le VBA ne fait pas la distinction entre "oe" et "œ" mais la MFC , si.

Cliquez pour agrandir...

C'est l'inverse sylvanu : le VBA fait la distinction entre "oe" et "œ" mais pas la MFC.

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 28 Décembre 2025

• #11

Bonsoir le fil
Je pense que toutes les solutions proposées ne tiennent pas compte des doublons de la colonne B (doublons détectables, ou pas...)
Sans compter les fôtes dortograf.... (Coeur -> cœur , avec petit "c", ou "C", ....), ni les espaces invités (ou pas....)
Ni les mots "NomPropre", ou "nomPropre",
Bref, d'après le célèbre adage informatique, "Merde In" => "Merde Out"
Sortir une liste "fiable", reste un peu du domaine de l'Intelligence Artificielle, avec tout ce qui rapproche de "Artificielle"....
Mais, ce fil m'a permis de voir qu'effectivement, le "Nb.si", "Find" (vba), que ce soit en MFC ou en codage, peut donner des solutions différentes...
PS, par le biais de PQ (Power Query), j'en suis à un nombre différent, mais faut pas exagérer, on a dit.... 😉
Bonne soirée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Décembre 2025

• #12

Cousinhub à dit:

Je pense que toutes les solutions proposées ne tiennent pas compte des doublons de la colonne B (doublons détectables, ou pas...)

Cliquez pour agrandir...

Oui, les solutions de sylvanu et sousou (et donc la mienne) traitent toutes les cellules de la colonne B sans se préoccuper des doublons.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Décembre 2025

• #13

Cousinhub à dit:

PS, par le biais de PQ (Power Query), j'en suis à un nombre différent, mais faut pas exagérer, on a dit....

Cliquez pour agrandir...

Si tu nettoies d'abord les colonnes A et B comme indiqué au post #9 tu devrais trouver 6215 cellules non ?

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 29 Décembre 2025

• #14

job75 à dit:

Si tu nettoies d'abord les colonnes A et B comme indiqué au post #9 tu devrais trouver 6215 cellules non ?

Cliquez pour agrandir...

Bonjour,
On obtient effectivement 6215 cellules, avec les doublons.
Et le nettoyage est effectué dans la requête :
- remplacement de oe par œ
- suppression des espaces de fin et des doubles espaces
Bonne journée

 

Vote positif 0 Vote négatif