1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
|
Option Explicit
Sub RécupérationDonnées()
Dim CellFR As Range, CellGF As Range
Dim i As Integer
'Workbooks("paulux67GrosFichier.xls").Sheets(1).Select
For Each CellFR In Workbooks("paulux67FichierRéduit.xls").Sheets(1).Range("A2:A" & Workbooks("paulux67FichierRéduit.xls").Sheets(1).Range("A2").End(xlDown).Row)
'CellFR représente chaque cellule de la colonne A dans le fichier réduit
For Each CellGF In Workbooks("paulux67GrosFichier.xls").Sheets(1).Range("A2:A" & Workbooks("paulux67GrosFichier.xls").Sheets(1).Range("A2").End(xlDown).Row)
'CellGF représente chaque cellule de la colonne A dans le Gros fichier
If CellFR.Value = CellGF.Value Then
'si même numéro entre les deux fichiers
For i = 1 To 4 'i défini le nombre de données à récupérer ici 4 colonnes de données
'on reproduit les données du gros fichiers vers le gros
CellFR.Offset(0, i).Value = CellGF.Offset(0, i).Value
Next i
'ensuite on passe à la ligne suivant du fichier réduit, on arrête la recherche dans le gros fihier
Exit For
End If
Next CellGF
Next CellFR
End Sub |
Partager