Discussion :

[Methodrone8]

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

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
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

[BlueMonkey]

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>.

[Methodrone8]

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

[BlueMonkey]

Re.

Content pour toi que tu es trouvé.
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 :

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

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+