Fusionner deux Listes

  • Initiateur de la discussion Initiateur de la discussion seven_cosmos
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

seven_cosmos

Guest
Bonjour

j'ai deux listes de données (Liste A et Liste B), chaque liste a deux colonnes (Clients/TTC)

je veut extraire les clients qui sont dans la liste A et pas Dans B

j'ai trouve un e solution avec la mise en forme conditionnel mais c'est un peut trop long

je veut savoir s'il y a une fonction pour faire ça

donc je veut extraire les clients qui se trouvent dans la liste A et non pas dans La liste B (vers une Liste C par exemple)

Voici la pièce-jointe pour comprendre bien le problème.

Merci ...
 

Pièces jointes

Re : Fusionner deux Listes

Bonjour,


Code:
Sub Liste1_Liste2()
  a = Range("E2:E" & [E65000].End(xlUp).Row)
  Set MonDico1 = CreateObject("Scripting.Dictionary")
  For Each c In a
   MonDico1(c) = ""
  Next c
  Set MonDico2 = CreateObject("Scripting.Dictionary")
  For Each c In Range("A2:A" & [A65000].End(xlUp).Row)
    If Not MonDico1.exists(c.Value) Then MonDico2(c) = c.Offset(, 1).Value
  Next c
  [I3].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.keys)
  [J3].Resize(MonDico2.Count, 1) = Application.Transpose(MonDico2.items)
End Sub

JB
 

Pièces jointes

Dernière édition:
Re : Fusionner deux Listes

Merci BOISGONTIER , JHA pour la réponse

je vais essayer de bien comprendre la formule parce-que je suis un peu faible dans ces types de formules

et surtout pour INDEX

merci de me partager des liens, documentation...etc

Merci encore ...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
40
Affichages
2 K
Réponses
4
Affichages
197
Retour