Comparaison listes

[bidouse31]

Bonjour,

Débutant en vba, je galère à trouver une solution à mon problème.
J'ai 2 listes à comparer et voici ce que je souhaite :
- Dans la feuil1 j'ai une liste de secteurs nommés S02 à S13 dans la colonne A avec dans la cellule à côté un nom (colonne B)
- Dans la feuil2 j'ai la même liste de secteurs (colonne A) avec dans la cellule à côté un nom de ville (colonne B)
- ce que je souhaite, c'est trouver une macro (avec un bouton exécution) pour me permettre de comparer les 2 listes et la cellule à côté de chaque nom y coller le nom de la ville correspondant (colonne C) qui se situe sur la feuil2.

Ce procédé sera utilisé pour trier des tableaux de 500 à 1000 lignes.

Je remercie par avance la personne qui me trouvera la solution !

Stéphane

 

[Modeste]

Re : Comparaison listes

Bonsoir Stephane et bienvenue!

Un petit fichier avec tes données permettrait sans doute de mieux comprendre ce que tu as ... et ce que tu veux (pas de données confidentielles; une trentaine de lignes devraient suffire)

 

[bidouse31]

Re : Comparaison listes

Merci Modeste pour ta réponse,

Voici un exemple de fichier

Feuil1

A B C
1 S02 Anthony
2 S03 Benoît
3 S04 Jérémy
4 S05 Olivier
5 S06 Stéphane
6 S07 Cyril B
7 S08 Joël
8 S09 Guillaume
9 S10 Cyril L
10 S11 Yannis
11 S12 François
12 S13 Mathieu


Feuil2

A B
1 S02 Reims
2 S03 Lille
3 S04 Brest
4 S05 Lyon
5 S06 Toulouse
6 S07 Marseille
7 S08 Strasbourg
8 S09 Nantes
9 S10 Clermont-Ferrand
10 S11 Paris Nord
11 S12 Paris Sud
12 S13 Bordeaux



Voila le fichier
En fait ce que je souhaite, c'est automatiser le tri. Je voudrais que les villes aillent automatiquement (en cliquant sur un bouton) se ranger dans la colonne C en face de son prénom. Le problème est que les données de la feuille 2 ne sont pas dans l'ordre.
Le fichier réel comporte plus de 600 lignes.


Merci pour ton aide

 

[ROGER2327]

Re : Comparaison listes

Bonjour à tous

En l'absence de support, un essai dans le classeur joint.
Les données sont dans les feuilles Source_1 et Source_2.
Pour obtenir la fusion, faire un double-clic dans la cellule A1 de la feuille Fusion.

(La bibliothèque Microsoft Scripting Runtime (scrrun.dll) doit être référencée dans le projet, car on y utilise un objet Scripting.Dictionary.)​

ROGER2327
#4902

Mercredi 25 Décervelage 138 (Saint Petiot, expert, SQ)
3 Pluviôse An CCXIX
2011-W03-6T16:12:07Z