XL 2021 Comparaison de 2 colonnes pas totalement identiques

[Rouxpoil85300]

Bonjour à tous. Je ne parviens pas à faire ressortir les titres de la colonne B qui ne sont pas présents dans la colonne A. Pourriez-vous me venir en aide. Merci d'avance pour cet énorme service. Bonne journée !

 

[sylvanu]

Bonjour Rouxpil,
Peut être avec cette MFC :

=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

 

[sousou]

Bonjour
Pas tres rapide, mais

 

[djidji59430]

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

Crdlmt

 

[job75]

Bonjour le forum,

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

- sylvanu 6670

- sousou 6206

A+

 

[sylvanu]

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

 

[sousou]

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

 

[sylvanu]

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. 🙂

 

[job75]

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

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 :

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

 

[job75]

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

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

 

[Cousinhub]

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

 

[job75]

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

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.

 

[job75]

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

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

 

[Cousinhub]

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

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