Sub prix()
Dim montantht, remise, tva, ttc, quantité
With Application
montantht = Replace(.InputBox("Veuillez saisir un montant HT : ", Type:=1), ",", ".")
quantité = Replace(.InputBox("Veuillez saisir une quantité : ", Type:=1), ",", ".")
remise = Replace(.InputBox("Quelle est la remise ? ", Type:=1), ",", ".")
tva = Replace(.InputBox("Quel est le taux de TVA ? ", Type:=1), ",", ".")
End With
montantht = montantht - (Val(montantht) * Val(remise) / 100) 'montantht-la remise
tva = (Val(montantht) * Val(quantité)) * Val(tva) / 100 'total de la TVA
ttc = (montantht * quantité) + tva 'total TTC
MsgBox ("Le montant de TVA est de : " & tva & " €.")
MsgBox ("Le montant TTC est de : " & Format(ttc, "#0.00€"))
End Sub