Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 module pour calculer montant TTC

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

coronae35

XLDnaute Nouveau
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
 
Trier par date Trier par votes
?????????
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!!! 🙂 🙂🙂 😀 😀 😀 😛
 
Vote positif 0 Vote négatif
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)
😉😛
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...
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
 
Vote positif 0 Vote négatif

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
 
Vote positif 0 Vote négatif
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,
 
Vote positif 0 Vote négatif
coronae35 à dit:
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 ?
Cliquez pour agrandir...
Re...
Si tu veux dire afficher le résultat de toutes les variables dans un msgbox
Essaye ceci
VB: 
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
 
Vote positif 0 Vote négatif
coronae35 à dit:
problème résolu 🙂

Merci à tout le monde ! 🙂
Cliquez pour agrandir...
RE..
VB: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2010 problème lors pour la selection dans un combobox
Réponses
2
Affichages
113
gbinforme
G
P
  • Résolu(e)
XL 2021 commission sur vente pour Excel version française
Réponses
6
Affichages
292
Plans24
P
D
  • Question Question
Power Query query - calculer le taux de tva
Réponses
5
Affichages
452
JFL_XLD
J
A
  • Question Question
XL 2016 Gestion Automatisée des Gains Individuels
Réponses
0
Affichages
477
apt
A
D
  • Question Question
Microsoft 365 CODE VBA
2
Réponses
17
Affichages
1 K
DAMIEN CERESER
D
P
  • Question Question
XL 2016 Erreur de compilation Else sans If
Réponses
3
Affichages
703
profcg
P
B
  • Question Question
XL 2019 Formule déduction de commission HT
Réponses
3
Affichages
1 K
Bobyfab
B
N
  • Question Question
XL 2016 Aidez moi sur le tableur Excel
Réponses
5
Affichages
1 K
Phil69970
C
  • Question Question
XL 2016 fonction pour Calcul montant d'escompte
Réponses
7
Affichages
1 K
danielco
D
C
  • Question Question
XL 2016 Module pour calculer un Seuil de Rentabilité
Réponses
1
Affichages
1 K
danielco
D
C
  • Question Question
XL 2016 Automatiser calculer de prix de billets
Réponses
6
Affichages
1 K
sylvanu
C
  • Question Question
Power Pivot Formule DAX pour calculer un montant moyen par journée
Réponses
3
Affichages
2 K
cooldidi14
C
D
  • Question Question
XL 2013 calculer une prime sur objectif collectif
Réponses
1
Affichages
2 K
Gégé-45550
C
  • Question Question
Autres VBA - Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
3
Affichages
2 K
claivier_58
C
C
  • Question Question
Autres Copier valeur cellule variable dans autre feuille sous condition Excel 2007
Réponses
1
Affichages
2 K
claivier_58
C
P
  • Question Question
Formule pour calculer les échéances annuelle d'un prêt, l'échéance progresse de 1,5% par an
Réponses
2
Affichages
2 K
pat66
P
M
  • Question Question
XL 2016 Macro pour Import CA Compta
2
Réponses
21
Affichages
3 K
jp14
J
F
  • Question Question
Formule pour calculer Tx d'évaluation
Réponses
11
Affichages
1 K
Fortunato
F
T
  • Question Question
XL 2013 Formule pour calculer le nombre de fois qu'un nombre apparait dans un montant
Réponses
4
Affichages
2 K
excfl
J
  • Question Question
problème conversion Texte/Nombre VBA
Réponses
1
Affichages
2 K
thebenoit59
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…