× 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:57 
Aller en bas de la page 
Nouvelle astucienne

Bonjour à tous,

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

N° info1 info2 info3

1 x x x

2 x x x

3 x x x

8 x x x

Fichier2

N° info4 info5 info6

1 x x x

4 x x x

5 x x x

8 x x x

Fichier3

N° info7 info8 info9

1 x x x

3 x x x

5 x x x

6 x x x

Résultat souhaité

N° info1 info2 info3 info4 info5 info6 info7 info8 info9

1 x x x x x x x x x

2 x x x

3 x x x x x x

4 x x x

5 x x x x x x

6 x x x

8 x x x x x x

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 29/04/2011 à 20:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

bonsoir,

cela fait 2

cela fait 3

un peu beaucoup non ?

@+



Modifié par leongka le 29/04/2011 20:18
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
224,90 €TP-Link Deco M9 (WiFi Mesh 2200 Mbit/s, jusqu'à 450 m²) x 3 à 224,90 €
Valable jusqu'au 04 Décembre

Amazon fait une promotion sur le kit TP-Link Deco M9 Plus avec 3 satellites qui passe à 224,90 € livré gratuitement alos qu'on le trouve ailleurs à partir de 349 €.

Ces 3 satellites Deco travaillent ensemble pour former un seul et unique réseau WiFi, garantissant une connexion rapide importe où que vous êtes. Ils offrent une connexion Mesh WiFi haut débit de 2200 Mbit/s , la possibilité de connecter + de 60 appareils dans votre foyer jusqu'à 450 m² et sans zone morte, idéal pour toute la maison, n'importe quels types de maisons ou grands appartements.


> Voir l'offre
15,99 €SSD PNY CS900 120 Go à 15,99 €
Valable jusqu'au 04 Décembre

Cdiscount fait une promotion sur le SSD PNY CS900 120 Go qui passe à 15,99 €. Ce SSD offre des vitesses d'écriture de 515 Mo/s et de lecture à 550 Mo/s. Il est garanti 3 ans. De quoi donner une seconde jeunesse à un ordinateur un peu ancien.


> 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

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