Autres Erreur 1004 VLookup

[Jacko17]

Bonsoir,

depuis 2 jours, je suis bloqué sur l'écriture VLookup.
tout le tableau est renseigné.
Pourriez-vous m'aider s'il vous plait ?

 

[Phil69970]

Bonjour @Jacko17, le forum

Après les Dim....

On Error Resume Next

*Mettre une image c'est un peu léger .... le code c'est mieux cela évite d'avoir à l'écrire et un fichier c'est encore mieux.

@Phil69970

 

[Jacko17]

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

 

[Phil69970]

Bonjour @Jacko17

As tu essayé ?

Après les Dim....
VB:

On Error Resume Next

C'est à dire ceci :

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

On Error Resume Next

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

Si cela ne fonctionne pas ....

*J'ai dit aussi :

un fichier c'est encore mieux.

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

@Phil69970

 

[Valtrase]

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

 

[Jacko17]

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.