XL 2016 module pour calculer montant TTC

[coronae35]

Bonjour à tous,

J'espère que vous allez bien.
Etant novice sur VBA j'aurais besoin de votre aide pour créer un module qui me donne la possibilité de saisir une quantité vendue, un prix unitaire hors taxe, un taux de TVA et un pourcentage de de remise et qui affiche dans une fenêtre le montant TTC à payer

Merci d'avance pour votre aide

 

[Staple1600]

Re

patricktoulon
Pourquoi ces parenthèses surnuméraires dans tes MsgBox ?

 

[patricktoulon]

?????????
sur numeraire non: inutile oui
j'ai copié bêtement le code départ de coronae35 , j'ai eu une flemesubitite aigue pour de revenir un 20 aine de caractères avant pour les supprimer



je fait souvent ca quand je pense que le procédé est très vilain
4 inputs!!!!!!!
heureusement que l'on doit pas gerer la defalque de stock ou de la marge brut ,etc....
j'lui en mettrais moi des inputbox!!!

 

[Staple1600]

Re

Pourquoi non ?
Sinon toi, qui aime bien jouer, une version avec une seule InputBox saupoudrée de Split (et pas à la banane) ?

 

[patricktoulon]

re
la version split en 1 input c'est quelques message plus haut déjà
et visiblement il est passé a la trappe c'est la #9

non par ce que si il y en avait une de trop ca serait en rouge
comme je l'ai dit j'ai eu la flemme de les enlever
trop pourri 4 input

perso je préfère faire une interface digne de ce nom avec un userform (dans mes premières propositions)

 

[coronae35]

Disons qu'il est trop beau pour être utilisé par un novice comme moi

j'aimerais un code semblable à celui ci : sauf que je pourrai ajouter aussi la quantité vendue, et la remise en plus du taux de TVA et du prix HT : me faut des msgbox et des inputbox en gros

Sub prix()
Dim montantht As Single
Dim taux As Single
Dim tva As Single
Dim ttc As Single
montantht = InputBox("Veuillez saisir un montant HT : ")
taux = InputBox("Quel est le taux de TVA ? ")
tva = montantht * taux / 100
ttc = montantht + tva
MsgBox ("Le montant de TVA est de : " & tva & " €.")
MsgBox ("Le montant TTC est de : " & ttc & "€.")
End Sub

 

[coronae35]

il me manque la possibilité de mettre la quantité de produit vendu et le taux de remise supplémentaire à la TVA
Pour rappel : mon but est de créer un module qui permette de saisir une quantité vendue, un prix unitaire HT, un taux de TVA et un taux de remise puis qui affiche dans une fenêtre le montant TTC à payer. Normalement si on choisit 25 en quantité, 120 en prix HT, 20% de TVA, 15% de taux de remise, on trouve un montant TTCà payer de 3060. J'aimerais avoir le montant TTC pour n'importe quelle quantité vendue, un prix unitaire HT, un taux de TVA et un taux de remise pour m'afficher le montant TTC et ce via des imputbox et des msgbox.

Quelqu'un pourrait m'aider ?

d'avance merci

 

[patricktoulon]

re
heu...

je vois qu'il y en a plusieurs qu'ont pas tout d'allumé aujourd'hui
relis #15

le taux de remise supplémentaire à la TVA

heu... pour info c'est illégale de faire une remise sur la tva elle ne t’appartient pas
tu défalque ce que tu paie ttc que tu a payé toi tu re falque ce que tu te fait payer sur calcul de ton puht + marge+saussison+brouette et tout ce que tu veux *tva/100
il ne peut en etre autrement
la tva c'est toujours le client final qui la paie

 

[Jacky67]

Bonjour,

Je cherche plutôt à avoir un code comme ça :

Sub prix()
Dim montantht As Single
Dim taux As Single
Dim tva As Single
Dim ttc As Single
montantht = InputBox("Veuillez saisir un montant HT : ")
taux = InputBox("Quel est le taux de TVA ? ")
tva = montantht * taux / 100
ttc = montantht + tva
MsgBox ("Le montant de TVA est de : " & tva & " €.")
MsgBox ("Le montant TTC est de : " & ttc & "€.")
End Sub

mais je ne sais pas comment l'adapter dans mon cas

Bien à toi,

Bonjour,

Je cherche plutôt à avoir un code comme ça :

Sub prix()
Dim montantht As Single
Dim taux As Single
Dim tva As Single
Dim ttc As Single
montantht = InputBox("Veuillez saisir un montant HT : ")
taux = InputBox("Quel est le taux de TVA ? ")
tva = montantht * taux / 100
ttc = montantht + tva
MsgBox ("Le montant de TVA est de : " & tva & " €.")
MsgBox ("Le montant TTC est de : " & ttc & "€.")
End Sub

mais je ne sais pas comment l'adapter dans mon cas

Bien à toi,

Bonjour à tous,

Calcul La TVA ou un TAUX

Pour ceux qui ont des difficultés pour calculer la tva HT ou TTC

www.excel-downloads.com

 

[coronae35]

Jacky, la PJ issue du lien fourni n'est pas téléchargeable

aurais tu un code pouvant répondre à mon problème?
Bàt

 

[Jacky67]

Jacky, la PJ issue du lien fourni n'est pas téléchargeable

aurais tu un code pouvant répondre à mon problème?
Bàt

Re..

 

[coronae35]

Patrick, c'est pour un exercice de cours. Je n'ai pas d'entreprise ou autre

Jacky le fichier est protégé par un mot de passe.

Personne saurait ce que je dois ajouter comme ligne à ce code pour qu'il y a toutes mes variables ?

Sub prix()
Dim montantht As Single
Dim taux As Single
Dim tva As Single
Dim ttc As Single
montantht = InputBox("Veuillez saisir un montant HT : ")
taux = InputBox("Quel est le taux de TVA ? ")
tva = montantht * taux / 100
ttc = montantht + tva
MsgBox ("Le montant de TVA est de : " & tva & " €.")
MsgBox ("Le montant TTC est de : " & ttc & "€.")
End Sub

Bien à vous,

 

[Jacky67]

Patrick, c'est pour un exercice de cours. Je n'ai pas d'entreprise ou autre

Jacky le fichier est protégé par un mot de passe.

Personne saurait ce que je dois ajouter comme ligne à ce code pour qu'il y a toutes mes variables ?

Re...
Si tu veux dire afficher le résultat de toutes les variables dans un msgbox
Essaye ceci

Sub prix()
    Dim montantht As Single
    Dim taux As Single
    Dim tva As Single
    Dim ttc As Single
    montantht = InputBox("Veuillez saisir un montant HT : ")
    taux = InputBox("Quel est le taux de TVA ? ")
    tva = montantht * taux / 100
    ttc = montantht + tva
    MsgBox "Le montant HT est de : " & montantht & " €" & vbLf & _
           "Le taux de TVA est de : " & taux & " %" & vbLf & _
           "Le montant de TVA est de : " & tva & " €" & vbLf & _
           "Le montant TTC est de : " & ttc & " €", , "Information"
End Sub

 

[coronae35]

problème résolu

Merci à tout le monde !

 

[Jacky67]

problème résolu

Merci à tout le monde !

RE..

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

 

[coronae35]

Merci Jacky!