Comment comparer deux colonnes ?

[Lloyd]

Bonjour à tous !

voici mon problème : j'ai un premier fichier avec une colonne d'environ cinq cent nombres; sur un autre fichier j'ai une colonne d'environ deux cent nombres. Je veux donc savoir si tous les nombres présents dans la colonne de deux cent sont bien présents dans celle de 500 ... Donc comment faire ?

J'ai entendu parler d'une recherchev mais je ne vois pas du tout comment ça marche ....

Merci d'avance pour votre aide !

 

[Brigitte]

Re : Comment comparer deux colonnes ?

Bonjour,
Une petite, toute petite piste avec recherchev (il existe aussi index/equiv) pour mettre NON ou OUI selon que le chiffre est présent ou non dans la deuxième liste.
Bémols :

- d'un fichier à l'autre plus dur, là j'ai fait dans deux onglets
- laisser les listes classées dans l'ordre numérique... alphabétique, chrono, sinon marche pas.

Bon courage.

 

[Staple1600]

Re : Comment comparer deux colonnes ?

Bonjour


Idem que Jean-Marcel ( 😉 )

Sub ab()
Dim n&, nn&, r&, DL&, dla&, dlb&
dla = [A65536].End(xlUp).Row: dlb = [B65536].End(xlUp).Row
DL = IIf(dlb > dla, dlb, dla)
For r = 1 To DL
    n = Application.WorksheetFunction.CountIf([B:B], Cells(r, 1))
    nn = Application.WorksheetFunction.CountIf([A:A], Cells(r, 2))
    If n = 0 Then
        If Not IsEmpty(Cells(r, 1)) Then
        Cells(r, 1).Font.ColorIndex = 4
        End If: End If
    If nn = 0 Then
        If Not IsEmpty(Cells(r, 2)) Then
        Cells(r, 2).Font.ColorIndex = 4
        End If: End If
Next
End Sub

 

[Staple1600]

Re : Comment comparer deux colonnes ?

Re


L'édition du code fut faite dans l'autre fil 😉

Et là pour le coup, j'ai bu un petit rosé ce midi.

Ce qui fait que j'ai oublié de préciser à Loyd qu'il faut adapter le code de mon premier message.
EDITION : ce que je viens de faire

Sub abc()
Dim n&, nn&, r&, DL&, dla&, dlb&
dla = [A65536].End(xlUp).Row: dlb = [B65536].End(xlUp).Row
DL = IIf(dlb > dla, dlb, dla)
For r = 1 To DL
    n = Application.WorksheetFunction.CountIf([B:B], Cells(r, 1))
    nn = Application.WorksheetFunction.CountIf([A:A], Cells(r, 2))
    If n > 0 Then
        If Not IsEmpty(Cells(r, 1)) Then
        Cells(r, 1).Font.ColorIndex = 4
        End If: End If
    If nn > 0 Then
        If Not IsEmpty(Cells(r, 2)) Then
        Cells(r, 2).Font.ColorIndex = 4
        End If: End If
Next
End Sub

 

[david84]

Re : Comment comparer deux colonnes ?

Bonjour à tous,
ci-joint proposition.
Si cela te convient et si tu le souhaites, il sera toujours temps de placer une condition pour cacher les valeurs d'erreur (pour l'instant, utilisation d'une MFC).
A+