XL 2016 VBA Userform - Outil calcul TVA

[shosho88]

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"

 

[sylvanu]

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]

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]

Bonjour shosho88, bienvenue sur XLD, sylvanu,

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

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]

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

 

[shosho88]

Bonjour shosho88, bienvenue sur XLD, sylvanu,

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

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]

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!