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

[richard_kasongo]

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:

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

[Mimimathy]

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