Sub prix()
Dim Montantht!, Tva!, Taux!, Ttc!, Nombre!, Remise!, LaRemise!, X$
X = " pièce(s)"
On Error GoTo fin
Montantht = InputBox("Veuillez saisir un montant unitaire HT : ", "Montant unitaire")
Nombre = InputBox("Veuillez saisir le nombre de " & X & " : ", "Nombre de " & X): Nombre = Int(Nombre)
Remise = InputBox("Veuillez saisir le taux de la remise : ", "Taux de la remise", 2)
LaRemise = Nombre * Montantht * Remise / 100
Taux = InputBox("Quel est le taux de la TVA ? ", "Taux de la TVA", 20)
Tva = Nombre * Montantht * Taux / 100
Ttc = Nombre * Montantht + Tva - LaRemise
MsgBox "Le montant unitaire HT est de :" & Format(Montantht, "# ### ##0.00 €") & vbLf & _
"Le montant HT pour " & Nombre & X & " est de :" & Format(Nombre * Montantht, "# ### ##0.00 €") & vbLf & _
"Le taux de la remise est de : " & Format(Remise, "#0\.## %") & vbLf & _
"Le montant de la remise est de :" & Format(LaRemise, "# ### ##0.00 €") & vbLf & _
"Le taux de la TVA est de : " & Format(Taux, "#0\.## %") & vbLf & _
"Le montant de la TVA est de :" & Format(Tva, "# ### ##0.00 €") & vbLf & vbLf & _
"Le montant TTC est de :" & Format(Ttc, "# ### ##0.00 €"), , "Information"
fin:
End Sub