code très simple et donc facile d'accès, les taux de TVA sont ceux en vigeur en Suisse, modifier le code pour charger les taux français. Le code est très commenté.
Source / Exemple :
Dim error As String
Private Sub cmdClaculer_Click()
'Déclaration des variables, toutes sont de type "Single", le
'"!" équivaut à la déclaration "As Single"
Dim result!, n!, pa!, panet!, b!, tva!, taxe!, resultn!
'attribution à la variable "n" du montant de la marge
n = Val(cboMarge.Text)
If n < o Then
error = MsgBox("Vous ne pouvez utiliser une marge inférieure à zéro!!", vbOKOnly, "Erreur!")
End If
'attribution à la variable "pa" du montant du prix d'achat brut
'et massage d'erreur si le pa est égale ou inférieur à zéro
pa = Val(txtPrixachat.Text)
If pa <= 0 Then
error = MsgBox("vous ne pouvez calculer une marge à partir d'un P.A. égal ou inférieur à zéro!!", _
vbOKOnly, "Erreur!")
End If
'calcul du prix de vente (PV)
result = ((pa * n) / 100) + pa
'affichage du PV
txtAffichage.Text = result
'calcul de la marge brute
b = Val(result - pa)
'affichage de la marge brute
txtBenefice.Text = b
'récupération du taux de TVA
tva = Val(cboTVA.Text)
If tva < o Then
error = MsgBox("Vous ne pouvez utiliser un taux de TVA inférieure à zéro!!" & vbCrLf & _
"incrivez un taux de de TVA suppérieur ou égale à zéro, et recommencez", vbOKOnly, "Erreur!")
End If
'calcul de la TVA selon le taux
taxe = (pa * tva) / 100
'affichage du montant de la TVA en Frs
txtTaxe.Text = taxe
'calcul de la marge nette
resultn = b - taxe
'affichage de la marge nette
txtBenefNet.Text = resultn
'calcul du PA net
panet = pa + taxe
'affichage du PA net
txtPaNet.Text = panet
End Sub
Private Sub cmdReinit_Click()
txtPrixachat.Text = ""
cboMarge.Text = "40"
txtAffichage.Text = ""
cboTVA.Text = "7.6"
txtBenefice.Text = ""
txtTaxe.Text = ""
txtBenefNet.Text = ""
txtPaNet.Text = ""
txtPrixachat.SetFocus
End Sub
Private Sub cmdQuitter_Click()
'Alt-F4 (Fermeture du prog)
SendKeys "%{F4}", True
End Sub
Private Sub Form_Load()
'affichage du pourcentage de marge par défaut
cboMarge.Text = "40"
'liste des pourcentages de marge pré-établi
cboMarge.AddItem "0"
cboMarge.AddItem "5"
cboMarge.AddItem "10"
cboMarge.AddItem "15"
cboMarge.AddItem "20"
cboMarge.AddItem "25"
cboMarge.AddItem "30"
cboMarge.AddItem "35"
cboMarge.AddItem "40"
cboMarge.AddItem "45"
cboMarge.AddItem "50"
cboMarge.AddItem "55"
cboMarge.AddItem "60"
cboMarge.AddItem "65"
cboMarge.AddItem "70"
cboMarge.AddItem "75"
cboMarge.AddItem "80"
cboMarge.AddItem "85"
cboMarge.AddItem "90"
cboMarge.AddItem "95"
cboMarge.AddItem "100"
'affichage par défaut du taux de TVA
cboTVA.Text = "7.6"
'liste des taux de TVA pré-établis
cboTVA.AddItem "0"
cboTVA.AddItem "7.5"
cboTVA.AddItem "7.6"
'boolean "PremierChargement" passé à "True"
'PremierChargement = True
End Sub
Private Sub Form_Activate()
'Procédure If pour vérifier que la
'feuille est bien chargée pour la première fois
'If PremierChargement = False Then
txtPrixachat.SetFocus
'End If
End Sub
Private Sub mnuCalculatrice_Click()
frmCalc.Show
End Sub
Private Sub mnuPceCalc_Click()
frmPCECalc.SetFocus
End Sub
Private Sub mnuQuitter_Click()
'Alt-F4 (Fermeture du prog)
SendKeys "%{F4}", True
End Sub
Private Sub mnuReinit_Click()
txtPrixachat.Text = ""
cboMarge.Text = "40"
txtAffichage.Text = ""
cboTVA.Text = "7.6"
txtBenefice.Text = ""
txtTaxe.Text = ""
txtBenefNet.Text = ""
txtPaNet.Text = ""
txtPrixachat.SetFocus
End Sub
Conclusion :
Marge calculator a été créé pour les commerçants, ainsi que pour toutes les personnes ayant des marges de prix à calculer, d'un seul click vous recevez tout le détail du calcul de marge (PA net, marge brute, marget nette, PV, ect...)
Marge Calculator devrait se voir agrémenter d'une petite calculatrice 4 opérations dans un futur proche.
Je précise que ceci est mon premier projet VB, il n'est donc pas très optimisé :).
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.