compiler 2 listes sur 2 onglet

[yvonyves79]

Bonjour a tous

je souhaiterai compiler les données de 2 listes , sur 2 feuilles différentes qui ont quelques nom en commun mais des valeurs différentes
et les présenter ds un 3 ieme onglet sous la forme NOM - valeur 1- valeur 2
voir exemple
avec mes remerciements 😛
yv

 

[pierrejean]

Re : compiler 2 listes sur 2 onglet

Bonjour yv

Et bienvenue sur XLD

Vois si cela te convient
NB: On trouve en Feuil3 2 fois nom ce qui n'est pas une erreur , le 2eme nom ayant un espace final n'est pas retenu comme identique au 1er

 

[yvonyves79]

Re : compiler 2 listes sur 2 onglet

Bonjour pierrejean

je te remercie pour ta réponse ultra rapide
est il possible de le mettre ss la forme
valeur A en colonne B
valeur B en colonne C
si 1 nom ds pas de valeur ds l'une ou l'autre colonne, mettre zero
pour obtenir qq chose comme, voir pj
cela me permettrai d'additionner les valeurs

de plus peux tu m'expliquer comment faire pour que je progresse
merci
yv

 

[JCGL]

Re : compiler 2 listes sur 2 onglet

Bonjour à tous,
salut PJ,

Un essai avec un TCD

A++ l'ami et bises à Mamie Verveine
A + à tous

 

[DoubleZero]

Re : compiler 2 listes sur 2 onglet

Bonjour, yvonyves79, pierrejean 🙂, le Forum,

Un essai en pièce jointe.

A bientôt 🙂

P. S. : Bonjour + bises, JCGL 😀😀

 

[_Thierry]

Re : compiler 2 listes sur 2 onglet

Bonsoir à tous

Tiens comme toi JCGL, j'ai magouillé un TCD ;-) mas je ne t'ai pas copié lol
Pas mal le Dico Scripting.dictionary Pierre Jean, je ne connaissais pas ...

J'espère que vous allez tous bien
Bonne soirée

@+Thierry

 

[yvonyves79]

Re : compiler 2 listes sur 2 onglet

merci a tous pour votre efficacité
je vais tester sur la vrai feuille a traiter
vs tiens au courant

yv

 

[pierrejean]

Re : compiler 2 listes sur 2 onglet

Bonjour à tous

Voila pour ecrire en colonne B et 0
Par ailleurs j'ai essayé de commenter la macro

PS: je regarde les autres solutions

 

[BOISGONTIER]

Re : compiler 2 listes sur 2 onglet

Bonjour,

Sub essai()
  Set d1 = CreateObject("Scripting.Dictionary")
  Set d2 = CreateObject("Scripting.Dictionary")
  Set f1 = Sheets("feuil1")
  Set f2 = Sheets("feuil2")
  For Each c In f1.Range("a2:a" & f1.[a65000].End(xlUp).Row): d1(c.Value) = "": Next c
  For Each c In f2.Range("a2:a" & f2.[a65000].End(xlUp).Row): d1(c.Value) = "": Next c
  For Each c In d1.keys: d2(c) = 0: d1(c) = 0: Next c
  For Each c In f1.Range("a2:a" & f1.[a65000].End(xlUp).Row): d1(c.Value) = c.Offset(, 1): Next c
  For Each c In f2.Range("a2:a" & f2.[a65000].End(xlUp).Row): d2(c.Value) = c.Offset(, 1): Next c
  [b2].Resize(d1.Count) = Application.Transpose(d1.keys)
  [c2].Resize(d1.Count) = Application.Transpose(d1.items)
  Range("d2").Resize(d2.Count) = Application.Transpose(d2.items)
End Sub

JB