Salut, j'ai un pb de calcul d'un montant. Je vous explique : j'ai un champ "montant du contrat", un champ "réalisation du 1er trimestre", un champ "total réalisation" et un champ "reste à payer". Je veux que lorsque je met un montant au niveau du champ "réalisation du 1er trimestre" il me met automatiquement le montant du "reste à payer" (reste à payer = montant du contrat - total réalisation) tout en respectant les chiffres après la virgule. voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Private Sub Txtrea1ertrim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtrea1ertrim.TextChanged
        Txtrea1ertrim.Text = Txtrea1ertrim.Text.Replace(".", ",")
        Txtrea1ertrim.Select(Txtrea1ertrim.Text.Length, 0)
        Dim r As Double
        r = Val(Txtmontantc.Text) - Val(Txttotalrea.Text)
        Dim res As [Decimal] = (r)
        Txtresteapayer.Text = res.ToString
    End Sub
Mais ca ne marche pas