Discussion :

[jboul]

Bonjour à tous

Alors voilà, lorsque j'exécute la ligne suivante :

Code :

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

VTR = Application.WorksheetFunction.HLookup(Worksheets("IRingSol").Cells(1, j).text, Worksheets("BD_Substances").Range("B1:P12"), 4)

,

je reçois en retour ce message d'erreur : "Impossible de lire la propriété Hlookup de la classe WorksheetFunction".

En fait, le but est d'aller récupérer une valeur dans la bonne colonne, en fonction de l'intitulé cette colonne.

Je n'arrive pas à trouver d'où vient l'erreur. Quelqu'un pourrait-il m'aider?

Merci par avance.

[David2304]

Bonjour,

Essaye de remplacer ton ".text" par un ".value"

[jboul]

J'ai déjà essayé! le résultat est le même

Merci d'essayer de m'aider

[Godzestla]

Non, ce n'est pas cela, c'est parce qu'il ne trouve pas, mais le .TEXT ou le .VALUE sont inutiles.

Je cherche la parade. minute

[David2304]

Effectivement l'erreur apparaît lorsque la valeur cherchée n'est pas dans le tableau
Tu dois pouvoir utiliser "On Error" pour ignorer l'erreur

[Godzestla]

Voilà.

le problème c'est parce qu'il ne trouve pas.



Pour ton info, tu n'as pas spécifié le dernier parametre à FALSE, donc HLOOKUP assume que tu ne veux pas un excat match, donc tu récupères le nearest value, mais supposé que ton tableau est trié en ascending.

Je confirme, il ne faut pas le .TEXT, ni le .VALUE.

J'ai bidouillé un exemple sur mon poste de ton acs adapté à mon test file, et cela marche.

Code :

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

1
2
3
4
5
6
7
 
Sub testoex()
 
tr = Application.WorksheetFunction.HLookup(Worksheets("Sheet2").Cells(1, 2), Worksheets("Sheet1").Range("A1:A13"), 1)
Debug.Print tr
 
End Sub

Si tu veux faire une recherche sur l'exact match, regarde le post suivant et tu trouveras comment gérer l'erreur qu'il rencontre si il ne trouve pas.

http://www.developpez.net/forums/sho...hlight=VLOOKUP

[jboul]

Merci pour vos réponses!