compiler 2 listes sur 2 onglet

pierrejean

XLDnaute Barbatruc

• 17 Février 2013

• #2

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

 

Pièces jointes

• yv_essai1.xlsm

  21.9 KB · Affichages: 44
• yv_essai1.xlsm

  21.9 KB · Affichages: 47
• yv_essai1.xlsm

  21.9 KB · Affichages: 42

Vote positif 0 Vote négatif

Y

yvonyves79

Guest

• 17 Février 2013

• #3

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

 

Pièces jointes

• yv_essai1.xlsm

  21.8 KB · Affichages: 46
• yv_essai1.xlsm

  21.8 KB · Affichages: 43
• yv_essai1.xlsm

  21.8 KB · Affichages: 39

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 17 Février 2013

• #4

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

 

Pièces jointes

• JC TCD Essai.xlsx

  15.8 KB · Affichages: 35

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 17 Février 2013

• #5

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 😀😀

 

Pièces jointes

• 00 - yvonyves79 - Données rassembler.xls

  48.5 KB · Affichages: 38

Dernière édition: 17 Février 2013

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 17 Février 2013

• #6

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

 

Pièces jointes

• essai_yvonyves79_Thierry.xlsm

  25.5 KB · Affichages: 43

Vote positif 0 Vote négatif

Y

yvonyves79

Guest

• 18 Février 2013

• #7

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 18 Février 2013

• #8

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

 

Pièces jointes

• yv_essai1.xlsm

  23.8 KB · Affichages: 39
• yv_essai1.xlsm

  23.8 KB · Affichages: 41
• yv_essai1.xlsm

  23.8 KB · Affichages: 41

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 18 Février 2013

• #9

Re : compiler 2 listes sur 2 onglet

Bonjour,

Code:

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

 

Pièces jointes

• Copie de yv_essai1.xlsm

  23.5 KB · Affichages: 44

Dernière édition: 18 Février 2013

Vote positif 0 Vote négatif