Je souhaite calculer un montant TTC ds une TextBox ds un UserForm après la
saisie de l'HT et de la TVA ds deux TextBox.
Mais le pourcentage doit être saisi sous la forme 0,196 pour que ça marche.
Est-ce possible sous forme 19,6% ??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Elliac
Bonjour,
Code à copier sur le contrôle recevant ton taux :
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2 = Format(TextBox2, "0,00%") TextBox2 = (Replace(TextBox2, ".", ",")) TextBox2 = TextBox2.Value n = CStr(Format(TextBox2.Value, "0.0000")) TextBox3 = CCur(TextBox1.Value) * (1 + n) End Sub
Camille
"JMC" wrote:
Bonjour,
Je souhaite calculer un montant TTC ds une TextBox ds un UserForm après la saisie de l'HT et de la TVA ds deux TextBox. Mais le pourcentage doit être saisi sous la forme 0,196 pour que ça marche. Est-ce possible sous forme 19,6% ??
Merci, Pirlouit
Bonjour,
Code à copier sur le contrôle recevant ton taux :
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2, "0,00%")
TextBox2 = (Replace(TextBox2, ".", ","))
TextBox2 = TextBox2.Value
n = CStr(Format(TextBox2.Value, "0.0000"))
TextBox3 = CCur(TextBox1.Value) * (1 + n)
End Sub
Camille
"JMC" wrote:
Bonjour,
Je souhaite calculer un montant TTC ds une TextBox ds un UserForm après la
saisie de l'HT et de la TVA ds deux TextBox.
Mais le pourcentage doit être saisi sous la forme 0,196 pour que ça marche.
Est-ce possible sous forme 19,6% ??
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2 = Format(TextBox2, "0,00%") TextBox2 = (Replace(TextBox2, ".", ",")) TextBox2 = TextBox2.Value n = CStr(Format(TextBox2.Value, "0.0000")) TextBox3 = CCur(TextBox1.Value) * (1 + n) End Sub
Camille
"JMC" wrote:
Bonjour,
Je souhaite calculer un montant TTC ds une TextBox ds un UserForm après la saisie de l'HT et de la TVA ds deux TextBox. Mais le pourcentage doit être saisi sous la forme 0,196 pour que ça marche. Est-ce possible sous forme 19,6% ??
Merci, Pirlouit
JMC
Merci
-- Cordialement,
Jean-Marc Charrier Responsable informatique du lycée Notre-Dame du ROC "Elliac" a écrit dans le message de news:
Bonjour,
Code à copier sur le contrôle recevant ton taux :
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2 = Format(TextBox2, "0,00%") TextBox2 = (Replace(TextBox2, ".", ",")) TextBox2 = TextBox2.Value n = CStr(Format(TextBox2.Value, "0.0000")) TextBox3 = CCur(TextBox1.Value) * (1 + n) End Sub
Camille
"JMC" wrote:
Bonjour,
Je souhaite calculer un montant TTC ds une TextBox ds un UserForm après la
saisie de l'HT et de la TVA ds deux TextBox. Mais le pourcentage doit être saisi sous la forme 0,196 pour que ça marche.
Est-ce possible sous forme 19,6% ??
Merci, Pirlouit
Merci
--
Cordialement,
Jean-Marc Charrier
Responsable informatique du lycée Notre-Dame du ROC
"Elliac" <Elliac@discussions.microsoft.com> a écrit dans le message de
news:9F6D02BE-62A2-4036-953F-CA39C0453E62@microsoft.com...
Bonjour,
Code à copier sur le contrôle recevant ton taux :
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2, "0,00%")
TextBox2 = (Replace(TextBox2, ".", ","))
TextBox2 = TextBox2.Value
n = CStr(Format(TextBox2.Value, "0.0000"))
TextBox3 = CCur(TextBox1.Value) * (1 + n)
End Sub
Camille
"JMC" wrote:
Bonjour,
Je souhaite calculer un montant TTC ds une TextBox ds un UserForm après
la
saisie de l'HT et de la TVA ds deux TextBox.
Mais le pourcentage doit être saisi sous la forme 0,196 pour que ça
marche.
