VBA : Erreur 13

Question

Bonjour,

Je viens chercher de l'aide étant débutante en VBA. Je souhaite afficher des infomations relatives à un article sur un formulaire, mais j'obtiens l'erreur 13 dès que je mets le curseur dans la ComboBox_code_artilce et la ligne en rouge apparait avec un fond jaune :

A noter que dans la ComboBox_code_artilce ou je mets ma réference ,le format est ABC-99 (3 lettres , tiret de 6 ,et 2 chiffres)

Private Sub ComboBox_code_artilce_Change()

'Affiche les infos de l'article

'-------------------------------------

*If WorksheetFunction.CountIf(Sheets("Stock").Range("B:Z"), Me.ComboBox\_code\_artilce.Value) = 0 Then* 

    *MsgBox "Non trouvé ", vbInformation + vbOKOnly, "Article non trouvé"* 

*End If* 

    *With Me* 

    ***.ComboBox\_ref\_fournisseur = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox\_code\_artilce), Sheets(Stock).Range("Tableau\_stock"), 2, 0)*** 

*End With* 

End Sub

Merci

Answer 1

Bonjour,

Si "Stock est le om de la feuille et non pas une variable contenant le nom de la feuille, il faut le mettre entre guillemets :

.ComboBox_ref_fournisseur = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox_code_artilce), Sheets("Stock").Range("Tableau_stock"), 2, 0)

Sinon, il est préférable d'utiliser la fonction VBA VLookup (Application.VLookup) plutôt que la fonction Excel (Application.WorksheetFunction.VLookup). Quand l'élément cherché n'a pas de correspondance, la fonction VBA retourne une erreur qu'il est possible de gérer, alors que la fonction Excel plante la macro.

Daniel