Problème saisie d'un champ

**loverdev** · 07/06/2007, 11h05

J'ai un pb lorsque j'essaye de saisir le champ "Montant de l'avance", il me sort le msg suivant "La conversion de la chaîne " " en type 'Décimal' n'est pas valide".
Voici mon 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
 
 Private Sub Txtmontantavance_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtmontantavance.TextChanged
        If Enannulation = True Then Exit Sub
        Txtmontantavance.Text = Txtmontantavance.Text.Replace(".", ",")
        Txtmontantavance.Select(Txtmontantavance.Text.Length, 0)
        If Txtmontantavance.Text = "" Then
            Txtmontantavance.Text = ""
            Dim z As [Decimal] = CDec(Txtmontantc.Text)
            Dim w As [Decimal] = CDec(Txtrea1ertrim.Text)
            Dim p As [Decimal] = CDec(Txtre2emetrim.Text)
            Dim o As [Decimal] = CDec(Txtrea3emetrim.Text)
            Dim m As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(w) + CDec(p) + CDec(o) + CDec(m)
            Txtmontantpaye.Text = CDec(w) + CDec(p) + CDec(o) + CDec(m)
            Txtresteapayer.Text = CDec(z) - (CDec(w) + CDec(p) + CDec(o) + CDec(m))
        ElseIf Txtrea1ertrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            'Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(b) + CDec(c) + CDec(d) + CDec(resul)
            Txtmontantpaye.Text = CDec(b) + CDec(c) + CDec(d) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(c) + CDec(d) + CDec(resul))
        ElseIf Txtre2emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            'Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(a) + CDec(c) + CDec(d) + CDec(resul)
            Txtmontantpaye.Text = CDec(a) + CDec(c) + CDec(d) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(c) + CDec(d) + CDec(resul))
        ElseIf Txtrea3emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            'Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(a) + CDec(b) + CDec(d) + CDec(resul)
            Txtmontantpaye.Text = CDec(a) + CDec(b) + CDec(d) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(b) + CDec(d) + CDec(resul))
        ElseIf Txtrea4emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            'Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(a) + CDec(b) + CDec(c) + CDec(resul)
            Txtmontantpaye.Text = CDec(a) + CDec(b) + CDec(c) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(b) + CDec(c) + CDec(resul))
        ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            'Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            'Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(d) + CDec(c) + CDec(resul)
            Txtmontantpaye.Text = CDec(d) + CDec(c) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(c) + CDec(resul))
        ElseIf Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            'Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            'Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(d) + CDec(a) + CDec(resul)
            Txtmontantpaye.Text = CDec(d) + CDec(a) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(a) + CDec(resul))
        ElseIf Txtre2emetrim.Text = "" And Txtrea4emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            'Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            'Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(a) + CDec(c) + CDec(resul)
            Txtmontantpaye.Text = CDec(a) + CDec(c) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(c) + CDec(resul))
        ElseIf Txtrea1ertrim.Text = "" And Txtrea3emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            'Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            'Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(b) + CDec(d) + CDec(resul)
            Txtmontantpaye.Text = CDec(b) + CDec(d) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(d) + CDec(resul))
        ElseIf Txtrea1ertrim.Text = "" And Txtrea4emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            'Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            'Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(b) + CDec(c) + CDec(resul)
            Txtmontantpaye.Text = CDec(b) + CDec(c) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(c) + CDec(resul))
        ElseIf Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            'Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            'Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(b) + CDec(a) + CDec(resul)
            Txtmontantpaye.Text = CDec(b) + CDec(a) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(a) + CDec(resul))
        ElseIf Txtrea1ertrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            'Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            'Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            'Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(b) + CDec(resul)
            Txtmontantpaye.Text = CDec(b) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(resul))
        ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            'Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            'Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            'Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(c) + CDec(resul)
            Txtmontantpaye.Text = CDec(c) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(c) + CDec(resul))
        ElseIf Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            'Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            'Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            'Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(a) + CDec(resul)
            Txtmontantpaye.Text = CDec(a) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(resul))
        ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            'Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            'Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            'Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(d) + CDec(resul)
            Txtmontantpaye.Text = CDec(d) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(resul))
        ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            'Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            'Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            'Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            'Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(resul)
            Txtmontantpaye.Text = CDec(resul)
            Txtresteapayer.Text = CDec(r) - CDec(resul)
        ElseIf Txtrea1ertrim.Text = "" Then
            Dim r As [Decimal] = CDec(Txtmontantc.Text)
            Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
            Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
            'Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
            'Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
            'Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = CDec(a) + CDec(resul)
            Txtmontantpaye.Text = CDec(a) + CDec(resul)
            Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(resul))
        End If
    End Sub

Le msg d'erreur s'affiche au niveau de cette ligne de code :

Code :

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

1
2
3
 
ElseIf Txtre2emetrim.Text = "" Then
          Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)

C'est due à quoi?

**Slumpy** · 07/06/2007, 11h10

Bah je comprend pas ta question. C due au fait qu il n y a rien dans ta textbox et que t essayes d appliquer CDec a ... rien.

Arf, encore trompé un coup t as 2 et un coup 3 sorry ...

**loverdev** · 07/06/2007, 11h12

Le champ vide c'est "txtre2emetrim" et le champ rempli c'est "txtrea3emetrim"

**Slumpy** · 07/06/2007, 11h15

est ce que t sur qu il y a un truc dans la 3 ?

**loverdev** · 07/06/2007, 11h18

J'explique la situation: J'ai 5 champs "txtrea1ertrim", "txtre2emetrim", "txtrea3emetrim", "txtrea4emetrim" et "txtmontantavance". Les 4 1er champs peuvent être remplis ou vides ou quelques uns remplis et d'autres vides. Je veux que lorsque j'essaye de remplir le champ "txtmontantavance" il ne m'affiche pas cette erreur comme indiqué ci-dessous.

**loverdev** · 07/06/2007, 13h20

J'ai essayé ceci mais ca ne marche tjrs pas

:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
 
Private Sub Txtmontantavance_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtmontantavance.TextChanged
 
        Try
            If Enannulation = True Then Exit Sub
            Txtmontantavance.Text = Txtmontantavance.Text.Replace(".", ",")
            Txtmontantavance.Select(Txtmontantavance.Text.Length, 0)
            If Txtmontantavance.Text = "" Then
                Txtmontantavance.Text = ""
                Dim z As [Decimal] = CDec(Txtmontantc.Text)
                Dim w As [Decimal] = CDec(Txtrea1ertrim.Text)
                Dim p As [Decimal] = CDec(Txtre2emetrim.Text)
                Dim o As [Decimal] = CDec(Txtrea3emetrim.Text)
                Dim m As [Decimal] = CDec(Txtrea4emetrim.Text)
                Txttotalrea.Text = CDec(w) + CDec(p) + CDec(o) + CDec(m)
                Txtmontantpaye.Text = CDec(w) + CDec(p) + CDec(o) + CDec(m)
                Txtresteapayer.Text = CDec(z) - (CDec(w) + CDec(p) + CDec(o) + CDec(m))
            End If
            If Txtmontantavance.Text <> "" Then
                If Txtrea1ertrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(c) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(c) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(c) + CDec(d) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(c) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(c) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(c) + CDec(d) + CDec(resul))
                ElseIf Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(b) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(b) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(b) + CDec(d) + CDec(resul))
                ElseIf Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(b) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(b) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(b) + CDec(c) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(c) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(a) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea4emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(c) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(d) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(c) + CDec(resul))
                ElseIf Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(a) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(c) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Txttotalrea.Text = CDec(resul)
                    Txtmontantpaye.Text = CDec(resul)
                    Txtresteapayer.Text = CDec(r) - CDec(resul)
                ElseIf Txtrea1ertrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(resul))
                End If
            End If
        Catch ex As Exception
            'MsgBox("Vous devez saisir une valeur monétaire")
            'Txtmontantavance.Text = ""
            'Txtmontantavance.Focus()
            MsgBox(ex.Message)
        End Try
    End Sub

Que faire? SVP aidez moi

**Pol63** · 07/06/2007, 13h37

un cdec ne marche que si la chaine contient un nombre
" " n'est pas un nombre
donc tu try
valeur = cdec(chaine)
catch
valeur = 0
end try
et valeur est bien un nombre que tu peux mettre dans ton champ

**loverdev** · 07/06/2007, 13h41

C'est à dire que je fais ca :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
 
Try
            If Enannulation = True Then Exit Sub
            Txtmontantavance.Text = Txtmontantavance.Text.Replace(".", ",")
            Txtmontantavance.Select(Txtmontantavance.Text.Length, 0)
 
            If Val(Txtmontantavance.Text) <> "" Then
                If Txtrea1ertrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(c) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(c) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(c) + CDec(d) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(c) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(c) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(c) + CDec(d) + CDec(resul))
                ElseIf Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(b) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(b) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(b) + CDec(d) + CDec(resul))
                ElseIf Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(b) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(b) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(b) + CDec(c) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(c) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(a) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea4emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(c) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(d) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(c) + CDec(resul))
                ElseIf Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(a) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(c) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Txttotalrea.Text = CDec(resul)
                    Txtmontantpaye.Text = CDec(resul)
                    Txtresteapayer.Text = CDec(r) - CDec(resul)
                ElseIf Txtrea1ertrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(resul))
                End If
            End If
        Catch ex As Exception
          If Txtmontantavance.Text = "" Then
                Txtmontantavance.Text = ""
                Dim z As [Decimal] = CDec(Txtmontantc.Text)
                Dim w As [Decimal] = CDec(Txtrea1ertrim.Text)
                Dim p As [Decimal] = CDec(Txtre2emetrim.Text)
                Dim o As [Decimal] = CDec(Txtrea3emetrim.Text)
                Dim m As [Decimal] = CDec(Txtrea4emetrim.Text)
                Txttotalrea.Text = CDec(w) + CDec(p) + CDec(o) + CDec(m)
                Txtmontantpaye.Text = CDec(w) + CDec(p) + CDec(o) + CDec(m)
                Txtresteapayer.Text = CDec(z) - (CDec(w) + CDec(p) + CDec(o)          + CDec(m))
            End If
            'MsgBox("Vous devez saisir une valeur monétaire")
            'Txtmontantavance.Text = ""
            'Txtmontantavance.Focus()
            MsgBox(ex.Message)
        End Try
    End Sub

**Pol63** · 07/06/2007, 13h50

pas tres orienté "developpement rapide" tout ca
si à l'écran tu as x fois la meme chose il fallait créer un usercontrol pour un trimestre et en poser plusieurs

ensuite si tu as 4 textbox par trimestre, sur chaque en cas de textchanged, tu fais une transformation du texte en nombre et tu le stockes dans une variable qui appartient au usercontrol
comme ca tu déclenches juste une sub calc qui fait machin = var1 + var2 ...
plutot qu'a ce moment se taper 50 lignes de code

enfin à quel moment ce passe le code que tu viens de nous citer ?

**loverdev** · 07/06/2007, 13h55

J'ai pas bien compris votre suggestion car je suis débutante et j'essaye d'apprendre ce langage. Pouvez vous me le clarifier a travers le code que j'ai écrit?

**Pol63** · 07/06/2007, 14h04

oui et non
je ne comprends pas bien ce code

Txtmontantavance.Select(Txtmontantavance.Text.Length, 0)
=> pourquoi placer le curseur à la fin ?

If Txtrea1ertrim.Text = "" Then
' traitement
ElseIf Txtre2emetrim.Text = "" Then

ca veut dire que si Txtrea1ertrim est vide vous ne faites traitez pas les autres elseif, ca sort direct sur le end if
c'est normal ?

de plus quand on écrit 4 x la meme chose on simplifie en faisant une sub

private sub trt
fait traitement
end sub
et ensuite on appelle trt

**loverdev** · 07/06/2007, 14h17

Code :

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

1
2
 
 Txtmontantavance.Select(Txtmontantavance.Text.Length, 0)

Ce code permet de remettre le curseur à la fin du texte pour permettre de continuer la saisie.
Est ce que vous pouvez concevoir votre idée à travers mon code? C'est à dire corriger mon code par votre idée

**Pol63** · 07/06/2007, 14h25

envoyez moi votre projet par mail sperot51@msn.com
selon ce que c'est je verrais si je prends le temps de vous faire ca (à vu de nez ca peut etre tres rapide à faire)

**loverdev** · 07/06/2007, 14h31

Ok je vais vous l'envoyer tout de suite.

**Pol63** · 07/06/2007, 15h12

tu peux me le renvoyer en zip, hotmail bloque les fichiers...

**loverdev** · 07/06/2007, 16h46

Je vous l'ai envoyé par zip

**loverdev** · 08/06/2007, 08h02

Est ce que quelqu'un peux m'aider svp? Je suis bloqué sur cette erreur. J'ai essayé plein de trucs mais ca ne marche tjrs pas

**loverdev** · 08/06/2007, 09h34

Voila ce que j'ai essayé de faire mais ca ne marche toujours pas

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
 
Private Sub Txtmontantavance_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtmontantavance.TextChanged
        If Enannulation = True Then Exit Sub
        Txtmontantavance.Text = Txtmontantavance.Text.Replace(".", ",")
        Txtmontantavance.Select(Txtmontantavance.Text.Length, 0)
        Try
            If Txtmontantavance.Text <> "" Then
                If Txtrea1ertrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(c) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(c) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(c) + CDec(d) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(c) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(c) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(c) + CDec(d) + CDec(resul))
                ElseIf Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(b) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(b) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(b) + CDec(d) + CDec(resul))
                ElseIf Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(b) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(b) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(b) + CDec(c) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(c) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(a) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea4emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(c) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(d) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(c) + CDec(resul))
                ElseIf Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(a) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(c) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Txttotalrea.Text = CDec(resul)
                    Txtmontantpaye.Text = CDec(resul)
                    Txtresteapayer.Text = CDec(r) - CDec(resul)
                ElseIf Txtrea1ertrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(resul))
                End If
            End If
            If Txtmontantavance.Text = "" Then
                Txtmontantavance.Text = ""
                Dim z As [Decimal] = CDec(Txtmontantc.Text)
                Dim w As [Decimal] = CDec(Txtrea1ertrim.Text)
                Dim p As [Decimal] = CDec(Txtre2emetrim.Text)
                Dim o As [Decimal] = CDec(Txtrea3emetrim.Text)
                Dim m As [Decimal] = CDec(Txtrea4emetrim.Text)
                Txttotalrea.Text = CDec(w) + CDec(p) + CDec(o) + CDec(m)
                Txtmontantpaye.Text = CDec(w) + CDec(p) + CDec(o) + CDec(m)
                Txtresteapayer.Text = CDec(z) - (CDec(w) + CDec(p) + CDec(o) + CDec(m))
                If Txtrea1ertrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(c) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(c) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(c) + CDec(d) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(c) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(c) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(c) + CDec(d) + CDec(resul))
                ElseIf Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(b) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(b) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(b) + CDec(d) + CDec(resul))
                ElseIf Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(b) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(b) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(b) + CDec(c) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(c) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(a) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea4emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(c) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(d) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(c) + CDec(resul))
                ElseIf Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(a) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim b As [Decimal] = CDec(Txtre2emetrim.Text)
                    Txttotalrea.Text = CDec(b) + CDec(resul)
                    Txtmontantpaye.Text = CDec(b) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(b) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim c As [Decimal] = CDec(Txtrea3emetrim.Text)
                    Txttotalrea.Text = CDec(c) + CDec(resul)
                    Txtmontantpaye.Text = CDec(c) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(c) + CDec(resul))
                ElseIf Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
                    Txttotalrea.Text = CDec(d) + CDec(resul)
                    Txtmontantpaye.Text = CDec(d) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(d) + CDec(resul))
                ElseIf Txtrea1ertrim.Text = "" And Txtre2emetrim.Text = "" And Txtrea3emetrim.Text = "" And Txtrea4emetrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Txttotalrea.Text = CDec(resul)
                    Txtmontantpaye.Text = CDec(resul)
                    Txtresteapayer.Text = CDec(r) - CDec(resul)
                ElseIf Txtrea1ertrim.Text = "" Then
                    Dim r As [Decimal] = CDec(Txtmontantc.Text)
                    Dim resul As [Decimal] = CDec(Txtmontantavance.Text)
                    Dim a As [Decimal] = CDec(Txtrea1ertrim.Text)
                    Txttotalrea.Text = CDec(a) + CDec(resul)
                    Txtmontantpaye.Text = CDec(a) + CDec(resul)
                    Txtresteapayer.Text = CDec(r) - (CDec(a) + CDec(resul))
                End If
            End If
            'Exit Sub
            'End If
        Catch ex As Exception
 
            'MsgBox("Vous devez saisir une valeur monétaire")
            'Txtmontantavance.Text = ""
            'Txtmontantavance.Focus()
            MsgBox(ex.Message)
        End Try
    End Sub

SVP aidez moi

**Pol63** · 08/06/2007, 09h41

j'ai pas testé ton projet si ca faisait des erreurs
quelle est elle ? sur quelle ligne ?
si c'est impossible de transformer " " en decimal, c'est normal

enfin dans l'état, moi je réécrirais tout le code en mieux et voir ce que ca donne après

**loverdev** · 08/06/2007, 09h49

Mon pb c'est qu'a chaque fois que j'essaye de saisir un chiffre au niveau du champ "txtmontantavance", il me sort le msg d'erreur suivant "La conversion de la chaîne " " en type 'Decimal' n'est pas valide". Mais il ne me met pas a quelle ligne il y a un pb. Et il me sort ce msg seulement si l'un des champs (par exemple "txtrea1ertrim" est vide) ou si tous les champs sont vide

. Si tous les champs "txtrea1ertrim", "txtre2emetrim", "txtrea3emetrim" et "txtrea4emetrim" ne sont pas vides, il ne me sort pas le msg d'erreur mais il ne soustrait pas le montant de l'avance du "reste a payer" et il ne l'ajoute pas au montant de "total réalisation"

Problème saisie d'un champ

VB.NET

Discussions similaires

Partager

Partager