Comparer et stocker des données sur plusieurs fichiers Excel

Version imprimable

10/06/2015, 15h15
JohnKel

Comparer et stocker des données sur plusieurs fichiers Excel

Bonjour,

Voila je suis actuellement bloqué sur un souci de comparaison dans le code VB.

J'ai deux fichier xls avec chacun un tableau. Je dois alors predre la valeur de Fichier1(A1) et rechecher dans la colonne G du fichier2 afin de trouver la dernier occurrence présente.
Une fois trouvé, je dois recopier la donnée du fichier2 colonne J.i dans le fichier1 colonne D.
Et je dois faire ca jusqu'a la cellule A.i vide.

Si quelqu'un avait une petite idée cela m'aiderai grandement :)
10/06/2015, 15h26
Gado2600

Bonjour,

Tu as plusieurs façons de le faire.
La plus simple étant d'avoir les deux fichiers ouverts dans le programme (workbooks.open).

Ensuite, tu as une double boucle :
- La première parcourt ton fichier 1 ligne par ligne
- La seconde (qui est dans la première), ira dans le fichier pour retrouver ton identifiant.

L'écrire des informations se fait aisément par la suite si tu as réussi cette première partie, je pense.

Cordialement,
10/06/2015, 15h37
JohnKel

Bonjour Gado,

j'ai ouvert mes deux fichiers mais justement je bloque sur la gestion des boucle car je ne maitrise pas beaucoup le VB :?

crier un bouton à fichier 1 et met le code bas à la cette bouton:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Dim fich1 As Worksheet: Set fich1 = ThisWorkbook.Worksheets("Feuil1")
    path_2 = "C:\Users\DELL\Desktop\Nouveau Feuille Microsoft Office Excel - Copie.xlsm"
    rangA = fich1.Range("A1").Value
    Workbooks.Open path_2
    For Each sh In Workbooks("Nouveau Feuille Microsoft Office Excel - Copie.xlsm").Worksheets
        If UCase(Trim(sh.Name)) = "FEUIL1" Then
            For i = 1 To Sheets(sh.Name).Range("G65000").End(xlUp).Row
                If Sheets(sh.Name).Range("G" & i).Value = rangA Then
                    insert_1 = Sheets(sh.Name).Range("J" & i).Value & "." & Sheets(sh.Name).Range("I" & i).Value
                    fich1.Range("D1").Value = insert_1
                    Exit For
                End If
            Next i
        End If
    Next
    Workbooks.Close path_2, False

bonne chance
Med

10/06/2015, 17h17
JohnKel

Je te remerci pour les boucle. J'essai de le mettre en place mais pas gagné du tout pour le moment je n'ai pas réussi à le faire tourner :s