Comparer deux fichiers

[Mel-rasc]

Bonjour,
Voici mon probleme : j'ai un fichier excel avec plusieurs feuilles a l'interieur et j'ai un autre fichier avec une feuille contenant des numeros de references. J'aimerais pouvoir comparer ces deux fichiers, c'est a dire que si ma reference est contenue dans les deux documents alors la colonne C de mon deuxieme fichier afficherais "ok" sur la ligne correspondante a ma reference. exemple, si mes deux fichiers 1 et 2 contiennent 01D900 alors je veux que dans mon fichier 2 dans la colonne C apparaisse "ok" dans la ligne ou se trouve 01D900

Pensez-vous pouvoir m'aider ?

Merci

Melanie

 

[Lone-wolf]

Bonjour Melanie

Et toi tu voudrais bien nous aider en mettant les fichiers? 😉
De plus, ont-ils la même structure, la valeur à rechercher est sur une colonne ou plusieures?? 🙄

Bon, bein... vu ton silence, voici une macro à adapter à ton cas, si tu sais te débrouiller toute seule.

Sub test()
Dim Ws As Workbook, Wd As Worksheet
Dim plage As Range, cel As Range
Dim plg As Range, c As Range
Dim x&, Rep$

    Application.ScreenUpdating = False
    On Error Resume Next
   
    Set Wd = ThisWorkbook.Sheets(1)
    x = Wd.Range("a" & Rows.Count).End(xlUp).Row
    Wd.Range("c2:c" & x).ClearContents
   
    Set plg = Wd.Range("d2:d" & x)
   
    Rep = ThisWorkbook.Path & "\Classeur2.xlsm"
    Set Ws = Workbooks.Open(Rep)
   
    Set plage = Ws.Sheets(1).Range("a2:c" & x)
   
    For Each cel In plage
       For Each c In plg
          If cel.Value = c.Value Then c.Offset(0, -1) = "ok"
       Next c
    Next cel

        ActiveWorkbook.Close True
End Sub

 

[Mel-rasc]

Bonjour,
merci beaucoup pour votre aide. J'ai reussi.