Discussion :

[cott333]

Bonjour,

J'essaie de contourner le message d'erreur que VBA me mets suite à mon Vlookup en vain.
La valeur n'existe en effet pas dans le Vlookup mais j'aimerai qu'il me mette "#N/A"

Pourriez vous m'aidez sur la fonction approprié sachant que je me retrouve toujours avec le meme message d'erreur.

"Unable to get the Vlookup property of the WorksheetFunction class"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For i = 17 To nblignes
If Cells(i, 29).Value = "assets" Then
A = WorksheetFunction.VLookup(Cells(i, 36).Value, Sheets("Lookup").Range("B:C"), 2, False)
If IsError(A) Then Cells(i, 37).Value = "#N/A" Else Cells(i, 37).Value = WorksheetFunction.VLookup(Cells(i, 36).Value, Sheets("Lookup").Range("B:C"), 2, False)
 
            End If
next i

[defluc]

Le code ne renvoie pas d'erreur. Je remplacerais donc la ligne de test par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

      If IsEmpty(A) Then Cells(i, 37).Value = "#N/A" Else Cells(i, 37).Value = A

[cott333]

Non toujours la même erreur. Il ne trouve pas la valeur dans la zone définie dans le rechercheV et j'ai toujours la même erreur

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For I = 17 To nblignes
If Cells(I, 29).Value = "assets" Then
A = WorksheetFunction.VLookup(Cells(I, 36).Value, Sheets("Lookup").Range("B:C"), 2, False)
On Error Resume Next
Cells(I, 37).Value = WorksheetFunction.VLookup(Cells(I, 36).Value, Sheets("Lookup").Range("B:C"), 2, False)
If Err <> 0 Then Err.Clear: Cells(I, 37).Value = "#N/A"
 On Error GoTo 0
Next I

[cott333]

J'ai encore le même message d'erreur...

run-time error '1004':
Unable to get the Vlookup property of the WorksheetFunction class

Ca pourrait être un problème de paramètre dans les options VBA?

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For I = 17 To nblignes
If Cells(I, 29).Value = "assets" Then
On Error Resume Next
a = WorksheetFunction.VLookup(Cells(I, 36).Value, Sheets("Lookup").Range("B:C"), 2, False)
If Err <> 0 Then Err.Clear: a = "#N/A"
 On Error GoTo 0
Cells(I, 37).Value = a
End If
Next