comparaison de listes

[xavier]

Bonjour,
comment faire pour comparer 2 listes sur 2 feuilles différentes, et faire en sorte que les valeurs qui n'apparaissent que dans une des 2 listes soient mises en valeur (ou annuler celles qui sont présentes dans les 2 listes à la fois)?
Merci
Xavier

 

[Celeda]

Bonjour,

On peut essayer de comparer des listes en identifiant les doublons - voir dans la centrale de Téléchargement le fichier Doublons qui peut t'aider.

On peut mettre en couleur par la MEFC dans une liste, les doublons par exemple - on peut extraire dans un autre liste ceux qui sont uniques...ect....

mais on peut passer aussi par le filtre élaboré, tout dépend où se trouvent les listes -peut-on les réunir et par le filtre demander une recopie sans doublons ou bien doivent-elles rester séparées dans des feuilles ?

mais on peut aussi trouver une macro qui élimine les lignes -y en a ici qui savent faire, ou empêcher d'écrire ..........la même valeur......

enfin il y a plein de possibilités.....à toi de voir et éventuellement dépose fichier <50 kg zippé si tu as besoin de plus d'aide.

Celeda

 

[xavier]

OK, merci, je vais déjà voir avec ce que tu me dis, et je referai signe si besoin.
Xavier

 

[lesuisse]

Salut...

Sinon voilà un code sympa qui permet de comparer 2 listes...
Il écrit "New" et "Old" selon la nouveauté ou la présence dans les 2 listes.

NEW = nouvelle base de données
OLD = ancienne

A +

Le Suisse


Sub Compare()

Dim cell As Range
For Each cell In Worksheets("New").Range("D2😀65536")
If Not IsEmpty(cell) Then
If Application.CountIf(Worksheets("Old").Range("D2😀65536"), cell) > 0 Then
cell.Offset(0, 1).FormulaR1C1 = "OLD"
Else: cell.Offset(0, 1).FormulaR1C1 = "NEW"
cell.Offset(0, 1).Interior.ColorIndex = 8
End If
End If
Next

End Sub

 

[xavier]

Merci, j'essaie ça!

Xavier