Formule de recherche

Question

Une aide svp pour m'aider à trouver la bonne syntaxe de formule dans Excel 2019 : J'ai un 1er fichier FA avec 1 feuille avec des numéros de série en colonne F. J'ai un second fichier FB) avec 1 feuille avec en colonne A les mêmes numéros de série et en colonne B, des numéros d'équipements correspondants. Je dois comparer chaque numéro de série de FB (colonne B) avec les numéros de série de FA (colonne F) et si les 2 numéros de série sont identiques, afficher en colonne G de FA, le numéro d'équipement associé. MERCI ...

ThauThème · Answer

Bonsoir Grandid, bonsoir le forum,

J'ai pour habitude de commenter mes codes mais comme de ton coté du n'as pas daigné fournir des explications précises, tu adapteras, si tu en as envie...

Sub Macro1()
Dim CD As Workbook
Dim OD As Worksheet
Dim CACS As String
Dim NCS As String
Dim CS As Workbook
Dim OS As Worksheet
Dim DL As Integer
Dim I As Integer
Dim R As Range

Set CD = ThisWorkbook
Set OD = CD.Worksheets(1)
CACS = "C:\blabla\tavequaledire\etcetc\"
NFS = "tavequaledire.xlsx"
On Error Resume Next
Set CS = Workbooks(CACS & NFS)
If Err > 0 Then
    Err.Clear
    Set CS = Workbooks.Open(CACS & NFS)
End If
On Error GoTo 0
Set OS = CS.Worksheets(1)
DL = OD.Cells(Application.Rows.Count, "F").End(xlUp).Row
For I = 1 To DL
    Set R = OS.Columns(1).Find(OD.Cells(I, "F").Value, , xlValues, xlWhole)
    If Not R Is Nothing Then
        OD.Cells(I, "G").Value = R.Offset(0, 1).Value
        R = Nothing
    End If
Next I
End Sub