Multiplication en VBA + problème format

Bonjour à tous,

Dans une UserForm (FrmOp), il y a une TextBox (T5) où l'on tape une somme,
une ComboBox (Cb4) avec menu déroulant où l'on choisi un nombre quantitatif, une autre TextBox (T6) qui doit recevoir le résultat de la multiplication T5*Cb4.
J'ai donc mis en place le code suivant mais ça ne marche pas. De plus, je n'arrive pas à mettre le format "# ##0.00" dans T5.
Pouvez-vous m'apporter votre éclairage s'il vous plait ?
Merci par avance

Code:

---

1 2 3 4 5

Private Sub T6_Change() T6.Value = vdon vdon = (T5.Value * Cb4.Value) vResul = Format(vdon, "# ##0.00") End Sub

---

Bonjour,

Je mettrais déjà le résultat après l'opération :

Code:

---

1 2 3 4 5

Private Sub T6_Change() vdon = (T5.Value * Cb4.Value) vResul = Format(vdon, "# ##0.00") T6.Value = vdon End Sub

---

et qu'est-ce que vResul ?

Bonjour,

Citation:

---

il y a une TextBox (T5) où l'on tape une somme

---

c'est quoi "taper une somme" ?


tu met ton code dans T6_Change, qui est déclenché sur changement d'état de T6 , c'est pas bon, comment veux tu que l'événement T6_change soit déclenché, par saisie de l'opérateur ? tu devrai plutôt placer cela dans T5_change et CB4_Change, attention pour T5, cela provoquera le calcul à chaque saisie de caractéres.

Tu as oublié de nous montrer les déclaration de tes variables vdon et vresult dont je ne comprends pas l'utilité.

Bizarre aussi l'ordre de ton calcul, tu affiche le résultat dans T6 , puis tu effectue le calcul !

Bonjour,

Taper une somme n'est pas correct, ce serait plutôt taper un montant, désolé.
Je n'ai pas fait de déclaration de variable. J'ai trouvé ce code dans un livre et je l'ai bêtement appliqué tel quel. :oops:
Mais avec vos explications je commence à y voir plus clair.
Par contre, lorsque je mets le code suivant dans T5, il m'affiche le code, pas le format.

Code:

---

1 2	T5= Format("# ##0.00")

---

Il faut lui dire ce que tu veux mettre à ce format :

exemple :

Code:

---

T5= Format(T6.value, "# ##0.00")

---

cf : aide vba de Format

Bonjour,

Oups! tu as raison. Grosse fatigue, très grosse fatigue :cry:

Bonjour.

La fonction Format renvoie une donnée au format string. Quand tu écris

Code:

---

T5 = Format(...)

---

C'est comme si tu écrivais

Code:

---

T5 = "..."

---

Si tu veux modifier le format de la celule en VBA, essaie simplement

Code:

---

T5.NumberFormat = "#,##0.00"

---

Bonne journée,

PGZ

Merci beaucoup pour votre aide, j'ai réussi à faire ce que je souhaitai.
A +:yaisse2: