> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
185,05 €Kit de 32 Go (2 x 16 Go) de mémoire DDR4 Crucial Ballistix 3600 MHz à 185,05 € livré
Valable jusqu'au 06 Mai

Amazon Allemagne fait une promotion sur le kit de 32 Go (2x16 Go) de mémoire DDR4 Crucial Ballistix 3600 MHz CL16 qui passe à 180,40 €. Comptez 4,65 € pour la livraison en France soit un total de 185,05 € livré alors qu'on le trouve ailleurs à partir de 220 €.


> Voir l'offre
64,48 €Ecouteurs intra-auriculaires sans fil Bluetooth Jabra Elite 65t à 64,48 € livrés
Valable jusqu'au 07 Mai

Amazon Allemagne fait une promotion sur les écouteurs intra-auriculaires sans fil Bluetooth Jabra Elite 65t qui passent à 59,50 € (avec la TVA ajustée). Comptez 4,98 € pour la livraison en France soit un total de 64,48 € livrés. On les trouve ailleurs à partir de 100 €. Pensés pour vous permettre de vivre votre musique comme vous l'entendez et pour assurer des conversations d'une grande clarté, les écouteurs Jabra Elite 65t ont tout pour vous séduire ! Côté son, l'égaliseur personnalisable vous permet d'ajuster le rendu sonore tandis que la technologie avancée à quatre microphones supprime les bruits de fond lors des appels pour des conversations limpides. Au quotidien, ces écouteurs Jabra restent parfaitement en place et proposent même une fonction de commande vocale simplifiée. Enfin, vous apprécierez les 5 heures d'autonomie avec une seule charge, qui se transforment en 15 heures avec l'étui de recharge compact.  Le Jabra Elite 65t est certifié IP55 et offre une garantie de 2 ans contre l’humidité et la poussière. Où que vous soyez et quelle que soit votre activité, vous profitez d’une liberté absolue pour les appels et la musique. 

Vous pouvez utiliser votre compte Amazon France sur Amazon Allemagne et il n'y a pas de douane.


> Voir l'offre
13,99 €Clé USB Sandisk Ultra 64 Go à double connectique USB 3.1 Type A et C à 13,99 €
Valable jusqu'au 06 Mai

Amazon fait une promotion sur la clé USB Sandisk Ultra 64 Go à double connectique USB 3.1 Type A et C qui passe à 13,99 € alors qu'on la trouve ailleurs à plus de 25 €. Cette clé USB  dispose d'un connecteur réversible USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. 


> 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