Comparer et soustraire 2 listes dans excel Fermé

Question

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

cptarget · Answer

bonjour,

le mieux est d'utiliser les vlookup (rechercheV sur excel en français)
--> imaginons que la liste A se trouve en colonne A et que la liste B se trouve en colonne B

en colonne C : vous tapez la fonction : =vlookup(a:a;b:b;0) et double clic pour descendre jusqu'en bas (s'il est dans les 2 colonnes il sera là)

réponses directes sur cptarget.be dans la section forum

Christophe

Alex_Allgood · Answer

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 ?

Alex_Allgood · Answer

Bonsoir
J'ai deux listes de mots: la liste a A a moins de termes que la liste B et se retrouve au complet a l'intérieur mais les termes de la liste A sont dispersés aléatoirement au travers de la liste B. Il faudrait faire une boucle pour vérifier si l'élément se de A se trouve dans B et s'il ne s'y trouve pas, mettre l'élément dans C.
merci

Boisgontierjacques · Answer

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

Comparer et soustraire 2 listes dans excel

4 réponses

Discussions similaires