× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Autres langages
 Récupérer données de 3 fichiers Excel en 1 seul
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
audrey57
  Posté le 28/04/2011 @ 15:34 
Aller en bas de la page 
Nouvelle astucienne

Bonjour,

Je viens de débuter mon stage et doit effectuer un travail sur Excel.

J'ai 3 fichiers excel avec un champs commun (un numéro de compte) et souhaite les fusionner en un seul autre fichier récapitulatif. Si c'est plus simple pour vous, je peux avoir un fichier avec 3 feuilles.

Je peux avoir des comptes présents dans 1, 2 ou les 3 fichiers. J'ai récupéré un code pour macro (ci-dessous) mais celui-ci ne traite que dans le cas de 2 fichiers et ne me récupère uniquement les lignes qui ont un numéro de compte identique dans les 2 fichiers.

J'ai besoin moi de récupérer toutes les lignes de mes 3 fichiers et dans le cas de numéro de compte présent dans 2 ou 3 fichiers compléter la seule ligne qui est dans mon fichier résultat. Pourriez vous me compléter ce code s'il vous plait? Je galère...

Merci beaucoup de votre aide.

Un petit schéma si ce n'est pas clair...

Fichier 1

info1

info2

info3

3

c

k

s

4

d

l

t

5

e

m

u

6

f

n

v

7

g

o

w

8

h

p

x

Fichier 2

info4

info5

info6

1

aa

ba

ca

2

ab

bb

cb

3

ac

bc

cc

4

ad

bd

cd

5

ae

be

ce

6

af

bf

cf

7

ag

bg

cg

8

ah

bh

ch

10

ai

bi

ci

11

aj

bj

cj

12

ak

bk

ck

13

al

bl

cl

Fichier 3

info7

info8

info9

1

aaa

bba

cca

4

aab

bbb

ccb

10

aac

bbc

ccc

14

aad

bbd

ccd

Résultat souhaité

info1

info2

info3

info4

info5

info6

info7

info8

info9

1

aa

ba

ca

aaa

bba

cca

2

ab

bb

cb

3

c

k

s

ac

bc

cc

4

d

l

t

ad

bd

cd

aab

bbb

ccb

5

e

m

u

ae

be

ce

6

f

n

v

af

bf

cf

7

g

o

w

ag

bg

cg

8

h

p

x

ah

bh

ch

10

ai

bi

ci

aac

bbc

ccc

11

aj

bj

cj

12

ak

bk

ck

13

al

bl

cl

14

aad

bbd

ccd

Sub galopin()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, i1, i2, i3, k, kk, z
Set ws1 = Worksheets(1)
Set ws2 = Worksheets(2)
Set ws3 = Worksheets(3)
i1 = ws1.Range("A1").End(4).Row
i2 = ws2.Range("A1").End(4).Row
With ws1
For k = 1 To i1
z = .Range("A" & k)
For kk = 1 To i2
If z = ws2.Range("A" & kk) Then
ws3.Range("A" & i3 + 1) = z
ws3.Range("B" & i3 + 1) = .Range("B" & k)
ws3.Range("C" & i3 + 1) = .Range("C" & k)
ws3.Range("D" & i3 + 1) = .Range("D" & k)
ws3.Range("E" & i3 + 1) = ws2.Range("B" & kk)
ws3.Range("F" & i3 + 1) = ws2.Range("C" & kk)
ws3.Range("G" & i3 + 1) = ws2.Range("D" & kk)
i3 = i3 + 1
End If
Next
Next
End With
End Sub

Publicité
leongka
 Posté le 30/04/2011 à 01:13 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
54,99 €SSD Samsung 860 EVO 500 Go à 54,99 €
Valable jusqu'au 04 Décembre

Amazon fait une promotion sur le SSD Samsung 860 EVO 500 Go qui passe à 54,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 80 €. Ce SSD offre des vitesses de 560 Mo/s en lecture et 520 Mo/s en écriture. Il est garanti 5 ans. Une bonne affaire.


> Voir l'offre
29,90 €Routeur TP-Link Archer C6 Gigabit et Wifi double bande AC à 29,90 €
Valable jusqu'au 03 Décembre

Amazon fait une vente flash sur le routeur TP-Link Archer C6 qui passe à 29,90 € livré gratuitement. On le trouve ailleurs à partir de 40 €. Ce routeur dispose de 5 ports Ethernet Gigabit, du WiFi 802.11 AC sur 2 bandes (délivre des débits combinés allant jusqu’à 1.2Gbps). Vous pouvez le convertir en point d'accès pour partager votre réseau filaire avec d'autres appareils WiFi.


> Voir l'offre
49,99 €Casque audio sans fil Bluetooth Jabra Move Style Edition à 49,99 €
Valable jusqu'au 04 Décembre

Amazon fait une promotion sur le très bon casque audio sans fil Bluetooth Jabra Move Style Edition qui passe à 49,99 € alors qu'on le trouve ailleurs à plus de 70 €. La livraison est gratuite. Une bonne affaire pour un casque confortable et qui offre une bonne qualité sonore. Jusqu'à 14h d'autonomie. Un connecteur jack 3,5 mm est fourni pour utiliser le casque en filaire (dans l'avion par exemple).


> Voir l'offre

Sujets relatifs
Récupérer données de 3 fichiers Excel en 1 seul !!
Récupérer données de 3 fichiers Excel en 1 seul !!
[C]Recuperer données dans un string
Macro excel : regrouper plusieurs fichiers
extraire des données avec excel et VB
mysql base de données de récupération dans wampserver2
Base de données et VS 2015
VBA excel transformer date à chiffre
VBA récupérer couleur sur image collée
VBA Excel francisé
Plus de sujets relatifs à Récupérer données de 3 fichiers Excel en 1 seul
 > Tous les forums > Forum Autres langages