Erreur 1004 VLookup

Bonjour,

J'utilise VLookup dans ma fonction suivante :

If FeuilleExiste("IW38") Then
NbColOt = NumeroColonne("Ordre")
NbLin38 = Sheets("IW38").UsedRange.Rows.Count
NbCol38 = Sheets("IW38").UsedRange.Columns.Count
Ndp = NumeroColonne("Durée panne")

For i = 2 To NbLin
Sheets("Analyse").Cells(i, 8) = Application.WorksheetFunction.VLookup(Sheets("Analyse").Cells(i, 3).Value, Range(Sheets("IW38").Cells(2, NbColOt), Sheets("IW38").Cells(NbLin38, NbCol38)), Ndp - NbColOt + 1, False)
Next
End If

La fonction FeuilleExiste renvoie un booléen et fonctionne.

La fonction NuméroColonne renvoie le numéro de colonne associé à une en-tête (integer)

j'ai une erreur 1004 : impossible de lire la propriété VLookup de la classe Worksheetfunction...

Pourtant tous les arguments me semblent corrects...

Je vous remercie d'avance pour votre aide

Bien cordialement,

Nicolas

bonjour,

tu peux aussi recevoir ce message d'erreur quand le vlookup ne trouve pas la valeur recherchée.

Bonjour, merci pour votre réponse, je pense en effet que c'en est la cause.

Comment faire pour remédier à cela, une sorte de SIERREUR qui renverrait une valeur si rien n'est trouvé.

Je n'arrive pas à l'implémenter correctement avec "On error goto"...

bonjour,

essaie cette syntaxe

v = Application.VLookup(paramètres)
If IsError(v) Then
MsgBox "erreur"
End If

enlève le worksheetfunction et utilise une variable intermédiaire que tu pourras tester avec la fonction iserror()

Merci, votre méthode fonctionne

Entre temps j'ai réussi a avoir qq chose de fonctionnel avec:

On Error GOTO ErrorHandler

ErrorHandler:

Resume Next