Autres Erreur 1004 VLookup

Bonjour @Phil69970

Merci beaucoup pour ta réponse et Désolé !! du mode de présentation.
j'ai fait ce que tu m'as conseillé,

Le but est de rechercher à partir du nom d'article ses informations qui lui correspondes.
mais dans le code ci-dessous, cela ne fonctionne pas malgré que le tableau 'ARTICLE' soit complet.

Honnêtement, je ne vois plus comment faire.

Private Sub CommandButton1_Click()
Dim Part_Articles As String
Dim Part_prix As Currency

If Me.Cbx_Nomarticles.ListIndex >= 0 And Me.Txt_nombre <> "" And Me.Cbx_activite <> "" Then

'Rechercher dans article
Part_Articles = WorksheetFunction.VLookup(Me.Cbx_Nomarticles, Sheets("ARTICLE").Range("b:i"), 1, 0)
Part_prix = WorksheetFunction.VLookup(Me.Cbx_Nomarticles, Sheets("ARTICLE").Range("b:i"), 7, 0)


'Remplir la zone de liste
With Me.Liste_order
.AddItem
.List(memoire, 0) = Part_Articles
.List(memoire, 1) = Me.Cbx_Nomarticles
.List(memoire, 3) = CCur(Part_prix)
.List(memoire, 4) = Me.Txt_nombre
.List(memoire, 2) = Me.Cbx_activite
End With

memoire = memoire + 1

'Vider l'article et le nombre
Me.Cbx_Nomarticles = ""
Me.Txt_nombre = ""

End If

End Sub

Bonjour @Jacko17

As tu essayé ?

Phil69970 à dit:

Après les Dim....
VB:

VB:

On Error Resume Next

Cliquez pour agrandir...

C'est à dire ceci :


Si cela ne fonctionne pas ....

*J'ai dit aussi :

Phil69970 à dit:

un fichier c'est encore mieux.

Cliquez pour agrandir...

Fichier anonymisé bien sur et représentatif du problème.

@Phil69970

Salut à tous
Attention à l'ordre de tes colonnes dans ton tableau pour tes recherches :

Re-bonjour @Phil69970

Oui, j'ai tester : "On Error Resume Next"
ça contourne l'erreur mais, il n'affiche pas le résultat de la recherche.

je joint le fichier.