Discussion :

[chtrousselle]

Bonjour,

Je souhaiterais fusionner deux listes via une "clé primaire" et via une macro et non une formule de type RECHERCHEV par exemple

Quelqu'un connait-il une solution ?
Voici un fichier exemple de ce que je souhaite obtenir...

Merci d'avance

[Lilou51]

Bonjour,

Il faut que tu regardes l'utilisation des tableaux (cf tutoriel ci dessous)
http://silkyroad.developpez.com/vba/tableaux/

sinon, reviens vers nous...

Elise

[chtrousselle]

Merci pour votre réponse,

Je ne connais pas grand chose aux macros alors c'est un peu compliqué..

[Lilou51]

OK... sinon, on peut faire autrement, et plus simple en compréhension si tu es novice...

1) Pour le moment, il n'y a pas de "clé primaire" ds tes listes.

2) est-ce que liste 1 peut être + ou moins longue que liste 2 ?
Sont-elle toujours ds le même ordre toutes les deux ?

3) Qu'est-ce qui t'ennuie avec la recherche V ?
sinon, toujours au niveau des formules, peut-être que la formule index / equiv serait + adapté ?
L'une ou l'autre des formules peuvent s'enregistrer par macro et à la fin tu finis par "copier coller valeur" pour figer les données.

[chtrousselle]

J'entends par clé primaire, une colonne en commun aux deux listes qui permet de les fusionner.

Les listes n'ont pas forcément la même taille

Bon je vais regarder pour enregistrer les différentes fonctions en macro...

[patricktoulon]

bonsoir
dans ton cas apres avoir regardé ton exemplaire
l'utilisations des tableau me sembles tout indiqué

liste 1 tu a
colonne 1.2.3.4
dans liste 2 tu a:
1.5.6.7
ce qui veut dire que l'on pourrai prendre la colonne des "1" en cle primaire en l'occurence la colone "A"

donc on créé 2 tableaux
tablo1 et tabo2
nous savons aussi que le plus grand c'est "7"
donc notre resultat devra etre
1.2.3.4.5.6.7

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub rassemble2tablos()
Dim tablo1, tablo2
 
tablo1 = Sheets("Liste 1").Range("a1:g" & Sheets("Liste 1").UsedRange.Rows.Count) 'on prend toute les lignes de la page liste1 sur 7 colonnes
'il y aura donc des colonne dans notre tableaux qui seront vides
'maintenant nous savons que dans liste 2 seule la colonne "a" est commune on a donc pas besoins de la prendre
tablo2 = Sheets("liste 2").Range("a1:d" & Sheets("Liste 2").UsedRange.Rows.Count) 'on prend toute les lignes de la page liste2 sur 7 colonnes
'maintenant que nous avons nos 2 tableaux on va en quelque sorte faire un merge
 
For i = 1 To UBound(tablo1) 'on boucle sur tout les items du tablo1 qui sont apparament egale a tablos 2en terme de lignes
'i representant la ligne le chiffre representant la colonne
tablo1(i, 5) = tablo2(i, 2): tablo1(i, 6) = tablo2(i, 3): tablo1(i, 7) = tablo2(i, 4)
'voila tout ce qui avait dans la colonne B C D DE LA LISTE 2 SE TROUVE MAINTENANT DANS liste1 en E.F.G
Next
'il nous reste maintenant a transposer notre tablo1dans le sheets fusion
'donc
Sheets("Fusion").Range("a1:g" & UBound(tablo1)) = tablo1
'et voila c'est fini
End Sub

voila j'ai pris comme parametre la colonne "A" etant donné que je ne voyais pas d'autre point de similarité entre les 2 tableaux

au plaisir