Discussion :

[paulux67]

bonjour,
ce n'est pas évident des fois d'inscrire clairement un titre au problème qu'on cherche à résoudre.
J'ai un fichier excel (ou une feuille) qui contient près de 3000 enregistrements, mais initialement, il en avait le double.
Pour réduire à 3000, j'ai dû supprimer des lignes d'enregistrements inutiles et passés date, mais j'ai trouvé plus tard un autre fichier qui contenait des infos importants à ajouter dans mon fichier réduit.
Comment je peux faire correspondre ces enregistrements importants à mon fichier réduit?
N.B.Chaque enregistrement (disposé sur une ligne, et sur plusieurs colonnes) possèdent un numéro unique, trié en croissant.
exemple:
fichier initial:

#1
#2
#3
#4
#5
#6
#7
#8
#9
#10

mon fichier réduit:
#2
#3
#6
#8
#10

il faut que je fasse correspondre les enregistrements qui me manque à partir du gros fichier vers mon petit, ligne par ligne.
merci beaucoup.
J'espère que vous me comprenez.
bonne fin de journée

[michoutri]

Bonjour

Je te proopse une solution pour ton problème.
J'ai crée 2 fichiers, les noms sont assez explicites.
et ce code dans le "fichier réduit"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ciao

[SfJ5Rpw8]

Bonjour,
Une autre solution sans Vba, utilise une formule index (voir aide en ligne) ....