Soyez le premier à donner votre avis sur cette source.
Vue 11 999 fois - Téléchargée 504 fois
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
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.