Discussion :

[loverdev]

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

[Slumpy]

Salut,

suis surement pas le mieux placer pour te repondre car je suis suis quiche . Mais je pense que tu ne peux pas faire d operation sur tes .text ils te faut declarrer des variables, leur affecter les valeurs contenues dans les textbox et faire les operations sur c variables.

Mais je dis ptet une grosse connerie

[loverdev]

Même en utilisant des variables au lieu des textbox ça ne marche pas

[Pol63]

j'ai pas compris où tu bloques, c'est quoi qui ne marche pas ?
sinon decimal est mieux que double
cdec est mieux que val

=> dim valeur as decimal = cdec(str1) - cdec(str2)
si tu veux fixer le nombre de chiffres après la virgule utilise format
textboxresultat = format(valeur,monformat)

si tu veux arrondir avant le calcul : cdec(round(cdec(str1)))
round est dans system.math

[loverdev]

Voilà ce que j'ai essayé de faire :

Code :

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

1
2
3
4
5
6
7
 
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 resultat As [Decimal] = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)
        Txtresteapayer.Text = resultat.ToString
    End Sub

Mais il me sort un msg d'erreur au niveau de :

Code :

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

1
2
 
 Dim resultat As [Decimal] = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)

Le msg d'erreur est le suivant : "La conversion de la chaîne " " en type 'Decimal' n'est pas valide"

[loverdev]

C'est bon j'ai trouvé mon erreur
Voici le code après correction :

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 [Decimal] = CDec(Txtmontantc.Text)
        Dim res As [Decimal] = CDec(Txtrea1ertrim.Text)
        Dim resultat As [Decimal] = CDec(r) - CDec(res)
        Txtresteapayer.Text = resultat.ToString
    End Sub

Merci à tous