Marge calculator

Soyez le premier à donner votre avis sur cette source.

Vue 11 706 fois - Téléchargée 471 fois

Description

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é :).

Codes Sources

A voir également

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.