MARGE CALCULATOR

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


 

Télécharger le zip