Discussion :

[HERBINE]

Bonjour
je souhaiterai créer une facture sous excel vba, un userform avec une liste déroulante qui contiendra la référence du produit, en cliquant sur cette liste apparait la désignation et le prix unitaire et le total sur un textbox.
mon problème j'ai du mal à utiliser la fonction VLookup, ça ne marche pas :
voir code excel vba

réf= Produit combobox
désignation = libellé textbox
prix unitaire = Prix textbox
Quantité = Qte textbox saisir la quantité
Montant HT= Total textbox

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
Private Sub UserForm_Initialize()
Me("produit" & i).List = (Range([J2], [J2].End(xlDown))) ' ma base de données  J2:L18
End Sub
 
Sub ChoixProduit()
 
   Me("libellé") = Application.VLookup(Me("Produit"), [BDProduit], 2, False)
   Me("Prix") = Application.VLookup(Me("Produit"), [BDProduit], 3, False)
   Calcul
End Sub
 
Sub Calcul()
  If Me("Prix") <> "" And Me("Qte") <> "" Then
    Me("Total") = CDbl(Me("Prix")) * CDbl(Me("Qte"))
  End If
End Sub

Cordialement
HERBIN
CHEL.HERB@WANADOO.FR