Bonjour,

Je débute dans VBA et je suis face un problème qui me bloque pour la suite de ma macro.

Malheureusement j’ai un message d’erreur qui apparait à chaque fois que j'utilise la function VLOOKUP et j’ai compris que c’est lorsque qu’il ne trouve pas la valeur dans le tableau « Ref Table ».

J’ai donc essayé d’inclure une fonction « IFERROR » comme je l’aurais fait sur Excel pour contourner le problème mais ça ne fonctionne toujours pas.

J'espère que quelqu'un pourra m'aider.

En vous remerciant par avance.

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
 
Dim AxLease As Integer
 AxLease = 1
 
    While MRISheet.Range("D" & AxLease) <> ""
    If MRISheet.Range("C" & AxLease) <> "" Then
    Result = Application.WorksheetFunction.VLookup(MRISheet.Range("A" & AxLease), Sheets("Table Ref").Range("A1:N10000"), 2, False)
 
    MRISheet.Range("B" & AxLease).Value = Result
 
    End If
 
    AxLease = AxLease + 1
 
    Wend