Calcul listbox userforme

Bonjour,

J'ai crée un userforme qui me permet d’insérer mes "ventes"
J'aimerais donc que selon des listbox il me calcul le prix total Htva et le prix total de la tva

Mais mon code n'as pas l'air parfait car il me fait pas l'addition..

Pièce jointe 390596

donc ici c'est à l'utilisateur de remplir les cases :

TextBox16 = on indique ici le taux de la TVA
TextBox17 =Intitulé de l'article
TextBox18 = Quantités
TextBox19 = Prix unitaire Htva

Et ici la macro qui calcul :

TextBox20 = Total HTVA (TextBox18 * TextBox19)
TextBox21 = Total TVA (TextBox19 / 100 * TextBox16)

Voici le code que j'ai crée :

Code:

---

1 2 3 4

Private Sub TextBox18_AfterUpdate() TextBox20 = (Val(TextBox18.Value) + Val(TextBox19.Value)) ->>>> fonctionne pas il me calcul pas l'addition TextBox21 = (Val(TextBox20.Value) / 100 * Val(TextBox16.Value)) ->>>> Ici sa à l'air de fonctionner bizarrement :/ End Sub

---

Bonjour,

1- quand tu utilises l'événement After_Update du TextBox18, le TextBox19 est il rempli?
2- Précises toujours la propriété des contrôles :

Code:

---

1 2 3 4

Private Sub TextBox18_AfterUpdate() TextBox20.Value = Val(TextBox18.Value) + Val(TextBox19.Value) '->>>> fonctionne pas il me calcul pas l'addition TextBox21.Value = (Val(TextBox20.Value) / 100 * Val(TextBox16.Value)) '->>>> Ici sa à l'air de fonctionner bizarrement :/ End Sub

---

3- ce ne serait pas plutôt une multiplication (quantité par prix unitaire) ?

Code:

---

1 2 3 4

Private Sub TextBox18_AfterUpdate() TextBox20.Value = Val(TextBox18.Value) * Val(TextBox19.Value) '->>>> fonctionne pas il me calcul pas l'addition TextBox21.Value = (Val(TextBox20.Value) / 100 * Val(TextBox16.Value)) '->>>> Ici sa à l'air de fonctionner bizarrement :/ End Sub

---

Oui tout à fait une multiplication pardon

Code:

---

1 2 3 4

Private Sub TextBox18_AfterUpdate() TextBox20.Value = Val(TextBox18.Value) * Val(TextBox19.Value) TextBox21.Value = (Val(TextBox20.Value) / 100 * Val(ComboBox1.Value)) End Sub

---

Code:

---

1 2 3 4 5

Combobox1 = With Me.ComboBox1 ComboBox1.AddItem "0" ComboBox1.AddItem "6" ComboBox1.AddItem "21"

---

Pour le choix du nombre de la TVA (sa fonctionne)

Et je remplit les cases dans l'ordre donc en 1er la tva, puis TextBox17.. 18 ... 19

Citation:

---

Envoyé par dgeo10

Et je remplit les cases dans l'ordre donc en 1er la tva, puis TextBox17.. 18 ... 19

---

Donc, lorsque l'événement TextBox18_AfterUpdate se déclenche, la TextBox19 n'est pas remplie...
Par conséquent, utilise plutôt l'événement TextBox19_AfterUpdate :

Code:

---

1 2 3 4

Private Sub TextBox19_AfterUpdate() TextBox20.Value = Val(TextBox18.Value) * Val(TextBox19.Value) TextBox21.Value = (Val(TextBox20.Value) / 100 * Val(ComboBox1.Value)) End Sub

---

Parfait :) Merci
Comme de quoi ... juste une petite erreur et rien ne fonctionne

donc la ok c'est presque bon.
Quand je rentre les données il calcul bien ok.
Par contre par exemple quand je rechange la tva (qui était à 0 par exemple) et je change en 21
la il change pas la réponse :/

Il y à un moyen pour que TextBox20 et TextBox21 se rafraîchisse à chaque changement des autres TextBox et combobox ?

Il te faut utiliser les événements des textbox avec une petite Sub perso...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub TextBox16_AfterUpdate() Calcule End Sub   Private Sub TextBox18_AfterUpdate() Calcule End Sub   Private Sub TextBox19_AfterUpdate() Calcule End Sub   Private Sub Calcule() If TextBox16.Value <> "" And TextBox18.Value <> "" And TextBox19.Value <> "" Then TextBox20.Value = Val(TextBox18.Value) * Val(TextBox19.Value) TextBox21.Value = (Val(TextBox20.Value) / 100 * Val(ComboBox1.Value)) End If End Sub

---

Pour ta combobox, ne sachant pas ce qu'elle fait, je ne peut pas te répondre.
Si j'ai bien compris, le choix dans la combobox modifie le texBox16?
Si oui, alors le code ci-dessus suffit.

non non j'ai remplacer totalement la textbox 16 par la combobox1 donc le 16 n'existe plus
la combobox me permet de choisir le taux de tva, et du fait il modifie la réponse de la combobox 20 et 21
mais j'ai modifier pas de problème cela fonctionne :)

Code:

---

1 2 3 4 5 6 7

Private Sub Calcule() If ComboBox1.Value <> "" And TextBox18.Value <> "" And TextBox19.Value <> "" Then TextBox20.Value = Val(TextBox18.Value) * Val(TextBox19.Value) TextBox21.Value = (Val(TextBox20.Value) / 100 * Val(ComboBox1.Value)) End If End Sub

---

J'ai regarder dans les paramètres à gauche mais je trouve pas le moyen de changer la couleur texte des 2 dernières textbox
Ils s'affiche en grisé et donc très peut visible je préférerais en noir. vous avez une idée ?

Pièce jointe 390640

Essaie ceci dans l'initialize de l'userform :

Code:

---

1 2	TextBox20.BackColor = &H80000005 TextBox21.BackColor = &H80000005

---

Sinon modifie leurs propriétés ForeColor (couleur de police)

Malheureusement non, même en modifiant le Forecolor sa ne fonctionne pas :/

On ne code pas avec ses pieds, mais en faisant un minimum attention...
Tu n'as qu'une ligne à vérifier, alors, stp, va prendre un café et dis moi ce que c'est que : ComboBox21.Value

Faut se frotter les yeux le matin!
;)

J'avais oublier je vient de rajouter une textbox22 pour avoir le Total TVAC

Code:

---

1 2 3 4 5 6 7

Private Sub Calcule() If ComboBox1.Value <> "" And TextBox18.Value <> "" And TextBox19.Value <> "" Then TextBox20.Value = Val(TextBox18.Value) * Val(TextBox19.Value) 'Total HTVA TextBox21.Value = (Val(TextBox20.Value) / 100 * Val(ComboBox1.Value)) 'Montant de la TVA TextBox22.Value = Val(TextBox20.Value) + Val(TextBox21.Value) 'Total TVAC End If End Sub

---

Mais ici, pour la TextBox22 il m'arrondi la réponse par exemple au lieu de 52.24 il indique 53 !?

Oui oui j'ai poster trop vite puis je me suis rendu compte de mon erreur ;) j'ai modifier en vitesse
mais trop tard tu la vus ...

Remplace tout tes Val par CDbl, exemple :

Code:

---

TextBox20.Value = CDbl(TextBox18.Value) * CDbl(TextBox19.Value)

---

Ahhhh merci beaucoup :)

Et désolé pour l'erreur de tout à l'heure ;)

Si c'est fini, clique sur "Résolu".
A++