Comparer et soustraire 2 listes dans excel

Fermé

dandupont - 8 mai 2010 à 19:39
Boisgontierjacques Messages postés 175 Date d'inscription jeudi 19 septembre 2013 Statut Membre Dernière intervention 26 décembre 2018 - 22 nov. 2013 à 20:51

Je désire comparer 2 liste de nom dans excel.

Liste A = liste du mois courant
Liste B = liste du mois précédant

Je voudrais faire 2 choses:

1. Liste A - liste B = liste des nouveaux clients
et
2. Liste B - Liste A =liste des client disparues

Merci infiniment pour votre aide

A voir également:

Excel comparer 2 listes
Liste déroulante excel - Guide
Formule excel - Guide
Si et excel - Guide
2 comptes whatsapp - Guide
Aller à la ligne excel - Guide

4 réponses

Réponse 1 / 4

Alex_Allgood
22 nov. 2013 à 19:02

ce qu'on veut, c'est éliminer les termes qui se trouvent dans les 2 listes et avoir un liste C comportannt les éléments de B n'étant pas dans A........

Comment fait-on ?

via55 Messages postés 14398 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 10 avril 2024 2 701
22 nov. 2013 à 19:19

Bonsoir

une possibilité :
Supposons la 1ere liste en colonne A et la seconde liste en colonne B à partir de B2
En C2 mettre la formule =NB.SI(A:A;B2) et etirer au bas de la colonne B
Ensuite appliquer un filtre sur la colonne C pour ne conserver que les valeurs 0 (uniques à la colonne C)
Copier collage spécial Valeurs de la colonne C filtrée à un autre endroit ou sur une autre feuille

Cdlmnt

Réponse 3 / 4

Boisgontierjacques Messages postés 175 Date d'inscription jeudi 19 septembre 2013 Statut Membre Dernière intervention 26 décembre 2018 64
Modifié par Boisgontierjacques le 22/11/2013 à 20:55

Bonsoir,

Cf PJ

https://www.cjoint.com/c/CKwuY0lwasP

Sub Liste2_Liste1()
a = Range("A2:A" & [A65000].End(xlUp).Row)
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In a
MonDico1(c) = ""
Next c
b = Range("C2:C" & [C65000].End(xlUp).Row)
Set MonDico2 = CreateObject("Scripting.Dictionary")
For Each c In b
If Not MonDico1.exists(c) Then MonDico2(c) = ""
Next c
[I2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys)
End Sub

Sub Liste1_Liste2()
a = Range("C2:C" & [C65000].End(xlUp).Row)
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In a
MonDico1(c) = ""
Next c
b = Range("A2:A" & [A65000].End(xlUp).Row)
Set MonDico2 = CreateObject("Scripting.Dictionary")
For Each c In b
If Not MonDico1.exists(c) Then MonDico2(c) = ""
Next c
[K2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys)
End Sub

Sub Communs()
a = Range("A2:A" & [A65000].End(xlUp).Row)
Set MonDico1 = CreateObject("Scripting.Dictionary")
For Each c In a
MonDico1(c) = ""
Next c
b = Range("C2:C" & [C65000].End(xlUp).Row)
Set MonDico2 = CreateObject("Scripting.Dictionary")
For Each c In b
If MonDico1.exists(c) Then If Not MonDico2.exists(c) Then MonDico2(c) = ""
Next c
[G2].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys)
End Sub

Jacques Boisgontier

Discussions similaires

besoin d'un nom d'équipe original.

Cherche vieilles VHS disney

Cellule choix Multiple Google Doc Calc

Excel générer adresse mail

yaoi hard

titre en bas de page

Discussions similaires

Newsletters