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
Partager