Recherche V sous VBA

Bonjour à tous
j'essaie de creer une petite fonction qui va effectuer une recherche V sur un tableau spécifique
voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

function recherche_cat_soc(col_cible As Integer, type_c1 As String, wbk_dcs As Workbook, wbk_input As Workbook, row_title As Integer)   Dim i As Integer, j As Integer Dim tab_code As Range   If type_c1 = "vie" Then Set tab_code = wbk_dcs.sheets(3).Range("A4:B10")   ElseIf type_c1 = "mixte" Then Set tab_code = wbk_dcs.sheets(3).Range("A17:B23") End If     j = 1 While Cells(row_title, j) <> "Catégorie / Mont" ' récupération de la colonne contenant catégorie / Mont j = j + 1 Wend   i = 3 While wbk_input.ActiveSheet.Cells(i, j) <> "" wbk_input.ActiveSheet.Cells(i, col_cible).Value = WorksheetFunction.VLookup(wbk_input.ActiveSheet.Cells(i, j).Value, tab_code, 2, False)   i = i + 1 Wend       End Function

---

En gros col_cible va indiquer dans quelle colonne va etre insérée la valeur recherchée, type_c1 va indiquer dans quel tableau rechercher, wbk dcs et wbk_input permettent de désigner les classeurs utilisés (les tables sur lesquelles pointent type_ci sont dans wbk_dcs, les données recherchées dans wbk_input)

En gros j'ai le message d'erreur suivant:
"Erreur d'execution 1004, impossible de lire la propriété Vlookup de la propriété Worksheetfunction"

Comment faire pour débuger cela?
Merci d'avance
guillaume

Bonjour,

C'est une erreur d'exécution, donc le code en lui même n'est pas faux.
Mais la valeur d'un des paramètres passé à VLookup doit être à l'origine du problème.

Lorsque le problème se produit, clique sur <Debugger> et évalue la valeur des variables passé à VLookup.
Regarde notamment les valeurs de wbk_input.ActiveSheet.Cells(i, j).Value et tab_code.

Est-ce que la valeur passée VLookup fait bien parti du tableau de valeur de tab_code ?

A+

P.S. : Tu peux aussi utilisé des sorties dans la fenêtre d'exécution avec Debug.Print <variable à évaluer>.

En effet ca marche, j'avais mal rentré un argument en appelant la fonction!
merci pour ton aide!

Re.

Content pour toi que tu es trouvé. :ccool:
Pour détecter plus facilement des erreurs d'exécution, je te conseil de ne pas laisser un test If / ElseIfsur une variable reçue en paramètre sans gérer le cas par défaut.

Code:

---

1 2 3 4 5 6 7 8

If type_c1 = "vie" Then Set tab_code = wbk_dcs.Sheets(3).Range("A4:B10") ElseIf type_c1 = "mixte" Then Set tab_code = wbk_dcs.Sheets(3).Range("A17:B23") Else MsgBox "Argument invalide [type_c1] = " & type_c1, , "Function recherche_cat_soc()" End If

---

A+