Discussion :

[NEC14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[oOVaveOo]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[JackOuYA]

Bonjour,

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 !

[NEC14]

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.
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[oOVaveOo]

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

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

cf : aide vba de Format

[NEC14]

Bonjour,

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

[pgz]

Bonjour.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

T5 = Format(...)

C'est comme si tu écrivais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

T5 = "..."

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

T5.NumberFormat = "#,##0.00"

Bonne journée,

PGZ