Impossible de lire la propriété VLooku de la classe WoksheetFunction

Bonjour chère communauté,

je vous sollicite car j’ai un soucis avec ce code, en effet, je tente partir deux deux onglets appartenant à un meme fichier, de rechercher si la référence du document existe dans l’onglet "LDA_Suivi, puis d’afficher le titre associé en colonne 2 de l’onglet, mais j’obtiens ce message d’erreur:

image

Sub LDA_checking()

Application.ScreenUpdating = False

Dim dossier As Object
Dim LDA_Liste As Worksheet
Dim LDA_Suivi As Worksheet
Dim LDA_Check As Variant
Dim LDA_Result
Dim DL_LDA

Set LDA_Liste = Workbooks(« 20240921_LPD.xlsm »).Worksheets(« Liste_LDA »)
Set LDA_Suivi = Workbooks(« 20240921_LPD.xlsm »).Worksheets(« Suivi_LDA »)

With LDA_Liste
DL_LDA = LDA_Liste.Cells(Rows.Count, 1).End(xlUp).Row

For i = 9 To LDA_Liste.Range("A" & Rows.Count).End(xlUp).Row
    LDA_Check = LDA_Liste.Range("D" & i)
    
    If LDA_Check = "" Then
    
    Else
        MsgBox LDA_Check
        LDA_Result = Application.WorksheetFunction.VLookup(LDA_Check, Sheets("Suivi_LDA").Range("A8:C1500"), 2, False)
        
    End If
    
Next i

End With

Application.ScreenUpdating = True

End Sub

Bonjour,

Normal, VLookup = RechercheV
Tu recherches dans la colonne « D » une valeur des colonnes de « A » à « C » dans la colonne « B »
alors que que ta fonction devrait rechercher une valeur de la colonne « A » dans la colonne « B »

Utilise plutôt INDEX & MATCH

Avec un fichier,ce sera plus simple de modifier la macro

1 « J'aime »