[VB] Excel - Assembler plusieurs fichiers

Excel - Assembler plusieurs fichiers [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 05-06-2006 à 03:43:46    

Je fais appel à votre aide car je n'arrive pas à solutionner mon problème.
Je souhaite rassembler les données de 2 fichiers Excel dans un seul et les traiter en même temps pour contrôler l'orthographe et tirer des conclusions.
 
1. Les fichiers:
 
- "DB1.xls" contenant un classement de personnes (données à partir de la ligne 7)
- "DB2.xls" contenant le résultat d'une compétition (càd, un classement d'une partie des personnes citées dans DB1.xls - donc pas toutes forcément- et donc pas forcément dans le même ordre et aussi des ex-aequo); données à partir de la ligne 2
 
2. Résultat souhaité:
Un fichier avec comme base le classement de DB1 et contenant le résultat pour chaque compétition
 
Exemple:
 
- DB1.xls (classement des compétiteurs)
 
Status 01.06.2006    
 
Place Couple Country Points
 
1 Alonso, Miguel - Angues, Eva Spain 835
2 Bartunek, Petr - Bartunkova, Eva Czech Republic 816
3 Ferraris, Daniele - Ciccarelli, Antonella Italy 737
4 Santaella, Xavier - Prinetti, Susanna Andorra 677
5 Ramirez, Manuel - Lopez, Julia Spain 653
6 Leschke, Stefan - Daniel, Marion Germany 592
7 Regano, Massimo - Piccirilli, Silvia Italy 524
8 Järvinen, Petri - Järvinen, Ulla Finland 499
9 Orlov, Nikolay - Nikolaeva, Tatiana Russian Federation 498
10 Gross, Hans-Jürgen - Gross, Martina Germany 440
11 Galluzzi, Davide - Bonechi, Monica Italy 426
12 Maucery, Tony - Maucery, Pascale France 416
13 Bröker, Georg - Schantora, Susanne Germany 414
14 Bevilacqua, Andrea - Vitale, Antonella Italy 402
15 Gartner, Dragan - Vinzens, Sibille Germany 398
 
- DB2.xls (résultat d'une compétition)
PL Couple name Country
1 Petr Bartunek - Eva Bartunkova Czech Republic
2 Slawomir Lukawczyk - Edna Klein Belgium
3 Claus Wolfer - Beatrix Leibfried Germany
4 Stefan Leschke - Marion Daniel Germany
5 Massimo Regano - Silvia Piccirilli Italy
6 Hans Juergen Gross - Martina Gross Germany
7 Martyn Long - Elaine Long              England
8 Petri Jarvinen - Ulla Jarvinen              Finland
9 Daniel Fuchsberger - Eva Buscella Italy
10 Dragan Gartner - Sibille Vinzens Germany
10 Miguel Vasquez Bravo - Maria Seoane Aguilo Spain
12 Xavier Santaella - Susana Prinetti Spain
13 Robin Sudell - Marianne Sudell Scotland
14 Steve Witherington - Sue WitheringtonEngland
14 Alberto Nobili - Cinzia Torcolacci Italy
14 Davide Galluzzi - Monica Bonechi Italy
14 Sergey Efimov - Natalya Efimova Russia
18 Lorenzo Urbani - Monica Divo Italy
....
 
- Résultat: "Statistiques.xls"
 
Place Couple                                       Country             Class Compét DB2            Class Compét DB3
 
1 Alonso, Miguel - Angues, Eva Spain                                   -                                   1
2 Bartunek, Petr - Bartunkova, Eva Czech Republic                      1                                   2
3 Ferraris, Daniele - Ciccarelli, Antonella Italy                              -                                   4
4 Santaella, Xavier - Prinetti, Susanna Andorra                         12                                  3
5 Ramirez, Manuel - Lopez, Julia Spain                                       24                                  6
6 Leschke, Stefan - Daniel, Marion Germany                           4                                  5
7 Regano, Massimo - Piccirilli, Silvia Italy                                 5                                 10
8 Järvinen, Petri - Järvinen, Ulla Finland                                      8                                 13
9 Orlov, Nikolay - Nikolaeva, Tatiana Russian Federation              -                                   7
10 Gross, Hans-Jürgen - Gross, Martina Germany                         6                                  8  
11 Galluzzi, Davide - Bonechi, Monica Italy                                14                                 9
12 Maucery, Tony - Maucery, Pascale France                           19                                12
13 Bröker, Georg - Schantora, Susanne Germany                        -                                 14
14 Bevilacqua, Andrea - Vitale, Antonella Italy                             29                                15
15 Gartner, Dragan - Vinzens, Sibille Germany                           10                                 11
 .....
 
D'avance merci pour votre aide.
 
De plus, la cerise sur le gâteau: je souhaiterais prendre le numéro 8 ou bien son nom (le finlandais) comme référence pour mettre une couleur sur les résultats des autres compétiteurs par rapport à lui à chaque compétition. Fond vert si meilleur que lui, fond rouge si moins bon.
 
Jiji22


Message édité par Jiji22 le 05-06-2006 à 17:12:09
Reply

Marsh Posté le 05-06-2006 à 03:43:46   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed