calcul HT TVA TTC dans USF

[Christine sud]

Bonsoir à tous

Volià mon petit problème. J'ai un Userform que je remplis à partir de Combobox et de texbox.

J'ai un Textbox "prix HT" (qui a toujours la même valeur, disons 100E)
j'ai un 2° TextBox "MontantTVA"
et enfin un 30 TextBox "Montant TTC"

La 2° TexBox"montant TVA" est fonction d'une autre TEXBOX"soumis TVA" qui dit oui ou non (sqi la personne est soumise ou non à la TVA.

En fait si "soumisTVA" = OUI , "montant TVA" = HT*19,6%
et "montant ttc" = HT + TVA
si "soumisTVA" = NON "montant TVA" =0
et "montant TTC" = HT

Volià, c'est façile à dire, mais n'étant pas très dégourdie, j'amerais bien que quelqu'un m'aide et me donne le Code à écrire pour faire celàdans mes textBox.
Avec mes remerciements anticipés
Chr.

et Bien s

 

[Lord Nelson]

Salut Christine,

Tu pourrais essayer ceci, en supposant que TextBox4 indique qu'il faut calculer la TVA ou pas :

'(procédure à placer en code général, avant les procédures d'évènements)
Sub CalculTVA()
Dim HT As Double, TVA As Double
If UCase(TextBox4) = "OUI" Then
HT = Val(Replace(TextBox1, ",", "."))
TVA = HT * 0.196
TextBox2.Text = Format(TVA, "# ##0.00")
TextBox3.Text = Format(HT + TVA, "# ##0.00")
Else
TextBox2.Text = ""
TextBox3.Text = ""
End If
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Chn As String
Chn = TextBox1.Text
If IsNumeric(Chn) Then
Chn = Format(Chn, "# ##0.00")
TextBox1.Text = Chn
CalculTVA
Else
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End If
End Sub

Private Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
CalculTVA
End Sub

A+
Horatio

 

[Christine Sud.]

Bonjour tout le forum
Bonjour Lord Nelson

Merci pour ta macro sur mon calcul de TVA.
J'ai juste rajouté les lignes

If UCase(TextBox4) = "NON" Then
HT = Val(Replace(TextBox1, ",", "."))
TVA = 0
TextBox2.Text = Format(TVA, "# ##0.00")
TextBox3.Text = Format(HT + TVA, "# ##0.00")
End If

si la personne n'est pas soumise à la TVA donc le TTC = le HT

Ce petit exemple marche très bien. Quand je valide sur la TextBoX4 tout fonctionne bien.

Dans la réalité de mon application, cette TextBox4 se remplit automatiquement, suite au choix d'un nom dans une ComboBox , qui envoie de manière automatique plusieurs éléments associés au nom dans mon UserForm. (dont la valeur Oui ou Non dans TextBox4.

Et la rien ne se passe, les calculs ne fonctionnent pas, sauf si je refrappe OUI ou NON et que je valide...

Comprenez-vous mon problème!
Là encore merci, si une astuce existe pour régler ça.
Bonne journée à tous
@++
Chr.

 

[Martin13]

Salut à tout le forum
slt Christine Sud, Lord Nelson

Pour moi génial, vu mon niveau, je me cassais la tête à trouver cela. Et là miracle je toruve mon bonheur. Mais j'ai le même problème que Christine Sud. On va trouver j'en suis sûr...
Merci encore
Philippe

 

[Martin13]

Re tous du forum

Je coince toujours sur ce problème.
Christine Sud, tu as du nouveau toi?

Merci à tout d'avance
Philippe M.

 

[Martin13]

Re le Forum

Je donne ma langue au chat, j'y arrive pas.
Quelqu'un pourrait-il- m'aider??

Merci d'avancePhilippe M

 

[Lord Nelson]

Salut Christine et Philippe,

Si la TextBox4 (OUI/NON) est remplie automatiquement, il faut remonter à l'évènement qui part du choix fait par l'utilisateur dans la ComboBox. Donc revenir sur le code qui alimente le UserForm. Pouvez-vous le montrer, ce bout de code ?

A+
Horatio

 

[Martin13]

Bonjour à tout le forum

Bonjour Lord Nelson et Chtristine.

J'étais sûr de t'avoir répondu hier soir,.. àpriori mauvaise ma,ip de ma part.
Bref, je tourne en rond avec cette histoire de TVA et j'ai bien compris que ma TExtBox4 (oui non), ne semble pas être prise en compte pour le calcul quand elle se remplit automatiquement.
Aussi je 'envoie carément le fichier dans lequel tu retrouveras ton code (pour calcul TVA) et celui qui alimente le Userform.
Merci d'avance.

pour Christine: et oi, de ton côté, as-tu du nouveau, tu ne te manifestes plus!

Bonne journée
Philippe M

 

[Eric C]

Bonjour le forum
Bonjour Christine, Philippe & Lord Nelson

Horation, j'ai répondu à Philippe sur son Post d'origine <http://www.excel-downloads.com/html/French/forum/messages/1_96813_96813.htm> donc c'est bon jusqu'à la prochaine question.
Christine, il faut que le TextBox en question (TextBox) ne recoive que la valeur OUI ou NON donc
Private Sub TextBox4_Change ()
If TextBox4.value = "OUI" then
CalculTVA
Else
CalculTVA
End If
End Sub
Bonne journée
@ ++ Eric C

 

[Christien Sud]

Bonjour tout le forum

Bjr Eric C et Philippe


PA souvent en raison mon job...
Bien reçu Eric ton texto, et j'avoue que le programme destiné à Philippe correspond à mes besoins. J'en ai pris note et ça fonctionne à merveille.

Je voudrais tous vous remercier. Merci pour ces échanges de commentaires, de formules, de .........
Au final ça marche, c'est le principal

@+++++++++
Christine Sud.

 

[@+Thierry]

Bonjour Christine, Amiral, Philippe, Eric, le Forum

Ceci à toutes fins utiles, pour toi et pour les autres futures lecteurs et lectrices ...

La solution avec fichiers démos et explications se trouve ici :

=> Lien supprimé

Bonne Soirée et Week End à tous et toutes
@+Thierry