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

[Invité]

Bonjour,

Un exemple, regardez les modifications.

[HERBINE]

BONJOUR
J'ai réalisé un programme en vba excel relatif à un emprunt à annuité constante.
je souhaiterai dans mon programme à l'aide d'un userform afficher les résultats dans une LISTBOX et sur ma feuille de calcul.
En vain cela dépasse mes compétences.
voir userform emprunt en pièce jointe
merci de votre aide
bien cordialement
M HERBINE

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Private Sub CALCULER_Click()
Dim Montant As Currency 'Montant de l'emprunt
Dim Taux As Single 'Taux de l'emprunt
Dim Duree As Integer 'Durée de l'emprunt
Dim Annee As Integer 'Année de l'emprunt
Dim Annuite As Currency 'Annuité
Dim Interet As Currency 'Intérêts
Dim Amortissement As Currency 'Montant du capital remboursé
Dim Capitaldebutperiode As Currency 'Capital du en début de période
Dim Capitalfinperiode As Currency 'Capital du en fin de période
 
' Récupération des données de la boîte de dialogue
 
Montant = Formulaire_Emprunt.Montant
Duree = Formulaire_Emprunt.Duree
Taux = Formulaire_Emprunt.Taux
Annee = Formulaire_Emprunt.Annee
 
' Entrée des données dans le tableau d'amortissement
Sheets("Emprunt").Select
Range("B1").Value = Montant
Range("B2").Value = Duree
Range("B3").Value = Taux
Range("B4").Value = Annee
Unload Formulaire_Emprunt
 
 
Annuite = Montant * (Taux / (1 - (1 + Taux) ^ -Duree))
'Sélectionner les lignes à partir de la ligne 6 jusqu'à 100 et les effacer
Rows("6:100").Select
Selection.ClearContents
 
'Affichage dans la feuille Excel de l'annuité
Range("D6") = "Annuité"
Range("E6") = Annuite
 
Range("A10") = "Année"
Range("B10") = "Capital début de période"
Range("C10") = "Intérêts"
Range("D10") = "Amortissement"
Range("E10") = "Annuité"
Range("F10") = "Capital fin de période"
 
Capitaldebutperiode = Montant
For j = 1 To Duree
 
Interet = Capitaldebutperiode * Taux
Amortissement = Annuite - Interet
Capitalfinperiode = Capitaldebutperiode - Amortissement
 
Range("A" & j + 10) = Annee
Range("B" & j + 10) = Capitaldebutperiode
Range("C" & j + 10) = Interet
Range("D" & j + 10) = Amortissement
Range("E" & j + 10) = Annuite
Range("F" & j + 10) = Capitalfinperiode
 
Capitaldebutperiode = Capitalfinperiode
Annee = Annee + 1
Next j
End Sub

Code :

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

1
2
3
Private Sub CommandButton2_Click()
End
End Sub

PIECE JOINTE