XL 2016 VBA Userform - Outil calcul TVA

shosho88 · 23 Octobre 2020

Bonjour à tous,
Je me permet de demander votre aide J'ai crée un formulaire qui permet de calculer le prix H.T à partir du prix TTC.
Le userform marche bien mais je ne trouve pas le bout de code qui me permet à l'utilisateur d'avoir le résultat en fonction du taux de TVA qu'il a choisi.
Pour l'instant j'ai laissé 8.5 et le calcul marche bien.

Merci d'avance pour votre aide! ))))))

Le code où ca bloque :

"Private Sub CommandButton1_Click()

TextBox2.Text = Round(Evaluate((TextBox1.Text * 100) / (100 + 8.5)), 2)

End Sub"

job75 · 23 Octobre 2020

Bonjour shosho88, bienvenue sur XLD, sylvanu,

Voyez le fichier joint et le code de l'UserForm :

VB:

Private Sub CommandButton1_Click()
TextBox2 = ""
If ListBox1.ListIndex > -1 Then TextBox2 = Round(Val(Replace(TextBox1, ",", ".")) * 100 / (100 + ListBox1), 2)
End Sub

Edit : salut Pounet95.

A+

sylvanu · 23 Octobre 2020

Bonjour Shosho,
Difficile de répondre précisément sans le fichier. Regardez ça:

XL 2010 - Récupérer selection d'une ListBox

Bonjour, Je m'initie à la programmation VBA alors j'ai créé une petite macro qui copie la feuille d'un classeur fermé et la colle dans autre classeur ouvert( où est exécuter la macro). Jusqu'ici tout va bien et tout marche bien. Voilà où commence les problèmes, je voulu améliorer cette macro en...

www.excel-downloads.com

Pounet95 · 23 Octobre 2020

Bonjour,
Le problème est de "récupérer" le taux choisi ?
Avant le calcul : je décompose pour être clair
La liste déroulante se nomme List_Taux

ndx = List_Taux.Listindex 'le numéro de la ligne dans la liste -1
Taux= List_Taux.List(ndx) 'la valeur à récupérer
puis dans la formule
TextBox2.Text = Round(Evaluate((TextBox1.Text * 100) / (100 +Taux)), 2)

Claude alias Pounet95

job75 · 23 Octobre 2020

Bonjour shosho88, bienvenue sur XLD, sylvanu,

Voyez le fichier joint et le code de l'UserForm :

VB:

Private Sub CommandButton1_Click()
TextBox2 = ""
If ListBox1.ListIndex > -1 Then TextBox2 = Round(Val(Replace(TextBox1, ",", ".")) * 100 / (100 + ListBox1), 2)
End Sub

Edit : salut Pounet95.

A+

Pounet95 · 23 Octobre 2020

Salut Job75
Je suis arrivé quand tu écrivais je suppose ?

shosho88 · 23 Octobre 2020

job75 à dit:
Bonjour shosho88, bienvenue sur XLD, sylvanu,

Voyez le fichier joint et le code de l'UserForm :

VB:

Private Sub CommandButton1_Click() TextBox2 = "" If ListBox1.ListIndex > -1 Then TextBox2 = Round(Val(Replace(TextBox1, ",", ".")) * 100 / (100 + ListBox1), 2) End Sub

Edit : salut Pounet95.

A+

Bonjour! Merci beaucoup pour le fichier. Ca marche du tonnerre

shosho88 · 23 Octobre 2020

Pounet95 à dit:
Bonjour,
Le problème est de "récupérer" le taux choisi ?
Avant le calcul : je décompose pour être clair
La liste déroulante se nomme List_Taux

ndx = List_Taux.Listindex 'le numéro de la ligne dans la liste -1
Taux= List_Taux.List(ndx) 'la valeur à récupérer
puis dans la formule
TextBox2.Text = Round(Evaluate((TextBox1.Text * 100) / (100 +Taux)), 2)

Claude alias Pounet95

Bonjour! Merci beaucoup!

XL 2016 VBA Userform - Outil calcul TVA

shosho88

XLDnaute Nouveau

job75

sylvanu

XLDnaute Barbatruc

XL 2010 - Récupérer selection d'une ListBox

Pounet95

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

Pounet95

XLDnaute Occasionnel

shosho88

XLDnaute Nouveau

shosho88

XLDnaute Nouveau

Discussions similaires