Discussion :

[NEC14]

Bonjour à tous,

Avec le code ci-dessous, je fais différentes opérations.
Un nombre est choisit dans Cb4 (Combo). Um montant saisit dans T4 et dans T5 (TextBox). La multiplication se fait correctement entre T4 et Cb4 résultat en T6 et T5 et Cb4 résultat en T7
Par contre, lorsque je veux faire la soustraction entre T6 et T7, le résultat T8 reste à zéro. Il se peut que le résultat soit négatif, ce qui sera souvent le cas.
Pouvez-vous m'aider à comprendre ?
Merci par avance

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Cb4_Change()
Me.T6.Value = Val(Me.T4.Value) * Val(Me.Cb4.Value)
Me.T6.Value = Format(Me.T6.Value, "0.00€")
Me.T7.Value = Val(Me.T5.Value) * Val(Me.Cb4.Value)
Me.T7.Value = Format(Me.T7.Value, "0.00€")
Me.T8.Value = Val(Me.T6.Value) - Val(Me.T7.Value)
Me.T8.Value = Format(Me.T8.Value, "0.00€")
End Sub

[NEC14]

J'ai trouvé, il fallait mettre un code en Private Sub T5_AfterUpdate()

Code :

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

1
2
3
4
5
 
Pivate Sub T5_AfterUpdate()
Me.T8.Value = Val(Me.T6.Value) - Val(Me.T7.Value)
Me.T8.Value = Format(Me.T8.Value, "0.00€")
End Sub