Salut, mon pb c'est que lorsque je commence a saisir un montant au niveau du champ "txtrea1ertrim" ce msg d'erreur apparaît "La conversion de la chaîne " " en type 'Decimal' n'est pas valide" . Voici le bout de code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Txtrea1ertrim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtrea1ertrim.TextChanged
        Try
            If Enannulation = True Then Exit Sub
            Txtrea1ertrim.Text = Txtrea1ertrim.Text.Replace(".", ",")
            Txtrea1ertrim.Select(Txtrea1ertrim.Text.Length, 0)
            Try
                Dim var As [Decimal] = CDec(Txtrea1ertrim.Text)
                Dim var1 As [Decimal] = CDec(Txtmontantc.Text)
                Dim var2 As [Decimal] = CDec(Txtmontantavance.Text)
                Dim var3 As [Decimal] = CDec(Txtre2emetrim.Text)
                Dim var4 As [Decimal] = CDec(Txtrea3emetrim.Text)
                Dim var5 As [Decimal] = CDec(Txtrea4emetrim.Text)
                Txttotalrea.Text = var + var3 + var4 + var5 + var2
                Txtmontantpaye.Text = var + var3 + var4 + var5 + var2
                Txtresteapayer.Text = var1 - (var + var3 + var4 + var5 + var2)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
End Sub