Module pour calculer montant TTC

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

Bonjour

Multipost !

En fonction personnalisée utilisant les cellules où sont inscrits Quantité, Prix Unitaire, Taux de Remise, Taux de TVA

Function TTC_Net(Quantité As Long, PU As Currency, Taux_Remise As Single, Taux_TVA As Single) As Currency
    TTC_Net = Quantité * PU * (1 - Taux_Remise) * (1 + Taux_TVA)
End Function

ou pour arrondir à 2 décimales

Function TTC_Net(Quantité As Long, PU As Currency, Taux_Remise As Single, Taux_TVA As Single) As Currency
    TTC_Net = Round(Quantité * PU * (1 - Taux_Remise) * (1 + Taux_TVA), 2)
End Function

Sinon précise le type d'interface voulue...

Hello 78chris

merci pour ton retour

en l'occurence j'aimerais créer non pas une fonction mais un module pour qu'une fenêtre apparaisse et où je puisse rentrer la quantité vendue, le prix HT unitaire, le taux de TVA, le taux de remise

par exemple si je met 25 en quantité vendue, 120 en prix HT unitaire, 20 en taux de TVA et 15 en taux de remise ça devrait affiche 3060 euros

Là, je pense que tu veux parler d'un UserForm avec des champs de saisie ?

Oui exactement! c'est le mot que je cherchais

Voici un exemple :

165test-formulaire.xlsm (23.33 Ko)

Hello

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,

Dans le VBE, tu cliques droit sur l'UserForm et tu choisis "Code" pour arriver dans son module

Justement, j'aimerais le faire avec un module via des imputboxes et des msgbox pour que ça affiche une fenetre avec le montant TTC. Tu saurais comment faire ?

je suis trop novice pour les userforms

Bonjour toutes et tous

coucous Thèze et Chris;;)

@Coronoae35

ci-joint le code de Thèze + avec l'userform à améliorer

Note: l'userform1 on peut double clic gauche pour afficher le message box

- on tape le montant, + taux de TVA et on clic sur le bouton Calculer TVA puis, Calculer TTC

crdlt,

André

ztva11
91prix-ht-ttc-v1.xlsm (37.47 Ko)

Voici :

Sub Test()

    Dim PrixUnit As Double
    Dim Quantite As Double
    Dim Remise As Single
    Dim TVA As Single

    On Error Resume Next
    PrixUnit = CDbl(InputBox("Indiquez le prix unitaire !", "Prix unitaire."))
    If Err.Number <> 0 Then MsgBox "Entrez un prix valide !": Exit Sub
    Quantite = CDbl(InputBox("Indiquez la quantité !", "Quantité."))
    If Err.Number <> 0 Then MsgBox "Entrez une quantité valide !": Exit Sub
    Remise = CSng(InputBox("Indiquez la remise !", "Remise."))
    If Err.Number <> 0 Then MsgBox "Indiquez une remise valide !": Exit Sub
    TVA = CSng(InputBox("Indiquez le taux de TVA !", "Taux de TVA."))
    If Err.Number <> 0 Then MsgBox "Entrez un taux de TVA valide !": Exit Sub

    MsgBox "Le prix net TTC est de :" & vbCrLf & PrixUnit * Quantite * (1 - Remise / 100) * (1 + TVA / 100)

End Sub

Bonjour toutes et tous

coucous Thèze et Chris;;)

@Coronoae35

ci-joint le code de Thèze + avec l'userform à améliorer

Note: l'userform1 on peut double clic gauche pour afficher le message box

- on tape le montant, + taux de TVA et on clic sur le bouton Calculer TVA puis, Calculer TTC

crdlt,

André

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

Bonjour,

Hello André, Chris

coronae35 dit:

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 ?

C'est exactement ce que fait le code que je t'ai donné en dernier mais comme tu multi-postes, tu ne tiens pas compte des différentes réponses données et tu pars tout azimuts !

Hello all,

j'ai posté pour rien en effet ^^

problème résolu, un grand merci à tous

Rechercher des sujets similaires à "module calculer montant ttc"