Problème saisie d'un champ

**Pol63** · 08/06/2007, 10h01

enleve le try pour voir ou est l'erreur
moi les try je les mets qu'une fois que le programme marche ...

enfin dans ton cas je recommencerais l'analyse de ce qu'il faut faire pour le faire mieux
t'as recu mon mail ?

**loverdev** · 08/06/2007, 10h10

Merci j'ai reçu ton email. Je suis entrain d'y jeter un coup d'oeil et d'essayer de le comprendre

**loverdev** · 08/06/2007, 10h13

est ce que vous avez essayé de tester le code que vous avez modifié pour voir si ça marche?

**loverdev** · 08/06/2007, 10h20

Comment je peux créer le usercontrol inherits textbox?

**Pol63** · 08/06/2007, 11h51

non j'ai pas testé
et puis c'est pas intuitif à comprendre

sinon dans ton projet (ou un autre projet qui serait une dll (bibliothèque de classe))
ajouter element / usercontrol
tu vas tomber sur un mode design ou tu peux placer plein de controles dessus
ou sinon tu vas dans le code et au debut tu marque
inherits system.windows.forms.textbox
et là le mode design ne sera plus modifiable vu que ca sera un "type" défini
ensuite dans la boite à outils tu dois avoir ton usercontrol qui apparait et que tu peux poser
(si t'as fait une dll, tu fais ajouter des elements et tu ajoutes la dll )

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

J'ai trouvé le usercontrol dans le mode design. C'est à dire que je dois supprimer les textbox des champs où je dois saisir des montants et mettre a leur place un unsercontrol. Est ce bien ca?

**Pol63** · 08/06/2007, 14h33

oui oui
enfin si t'es pressé, c'est pas ce qu'il y avait de plus urgent à faire dans ton appli

**loverdev** · 08/06/2007, 14h36

Je ne comprend pas

, vous voyez qu'il y a quelque chose d'urgent a régler dans mon application!

**Pol63** · 08/06/2007, 15h50

oui et non
mais il y a application et application
là vous avez fait un paté de code avec une reflexion très linéaire de la chose sans mutualisation du code
à vu de nez il est possible de faire la meme chose avec 4 à 5 fois moins de code (et ce peut etre sur tout l'appli) et donc plus de clarté ...

**loverdev** · 08/06/2007, 15h59

Est ce que vous pouvez m'aider a optimiser mon code et à résoudre le pb cité ci-dessous?

**loverdev** · 08/06/2007, 16h58

J'ai essayé de corriger mon code ainsi sauf que j'ai tjrs la même erreur "La conversion de la chaîne " " en type 'decimal' n'est pas valide". Vraiment je suis perdu

**Pol63** · 08/06/2007, 17h35

si tu sais sur quelle ligne ca plante (retirer le try)
tu peux voir en laissant ta souris sur une variable combien elle vaut
donc trouver ce qui ne va pas

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

Je sais que qu'a chaque fois que je laisse un ou tous les champs "txtrea1ertrim", "txtre2emetrim", "txtrea3emetrim" et "txtrea4emetrim" vides il m'affiche ce msg d'erreur au niveau de chaque txtrea1ertrim_textchanged

**loverdev** · 11/06/2007, 08h03

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
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
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
 
 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)
            If Txtrea1ertrim.Text = "" Then
                Txtrea1ertrim.Text = ""
                Dim c As [Decimal] = CDec(Txttotalrea.Text)
                Dim d As [Decimal] = CDec(Txtmontantc.Text)
                Txttotalrea.Text = ""
                Txtmontantpaye.Text = ""
                Txtresteapayer.Text = CDec(d) - CDec(c)
            Else
                Dim r As [Decimal] = CDec(Txtmontantc.Text)
                Dim res As [Decimal] = CDec(Txtrea1ertrim.Text)
                Txttotalrea.Text = CDec(res)
                Txtresteapayer.Text = CDec(r) - CDec(res)
                Txtmontantpaye.Text = CDec(Txttotalrea.Text)
            End If
        Catch ex As Exception
            MsgBox("Vous devez saisir une valeur monétaire")
            Txtrea1ertrim.Text = ""
            'Txtrea1ertrim.Focus()
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Txtre2emetrim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtre2emetrim.TextChanged
 
        Try
            If Enannulation = True Then Exit Sub
            Txtre2emetrim.Text = Txtre2emetrim.Text.Replace(".", ",")
            Txtre2emetrim.Select(Txtre2emetrim.Text.Length, 0)
            If Txtre2emetrim.Text = "" Then
                Txtre2emetrim.Text = ""
                Dim b As [Decimal] = CDec(Txtmontantc.Text)
                Dim c As [Decimal] = CDec(Txtrea1ertrim.Text)
                Txttotalrea.Text = CDec(c)
                Txtmontantpaye.Text = CDec(c)
                Txtresteapayer.Text = CDec(b) - CDec(c)
            Else
                Dim r As [Decimal] = CDec(Txtmontantc.Text)
                Dim re As [Decimal] = CDec(Txtre2emetrim.Text)
                Dim res As [Decimal] = CDec(Txtrea1ertrim.Text)
                Dim resu As [Decimal] = CDec(Txttotalrea.Text)
                Txttotalrea.Text = CDec(res) + CDec(re)
                Txtresteapayer.Text = CDec(r) - CDec(resu)
                Txtmontantpaye.Text = CDec(resu)
            End If
        Catch ex As Exception
            MsgBox("Vous devez saisir une valeur monétaire")
            Txtre2emetrim.Text = ""
            'Txtre2emetrim.Focus()
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Txtrea3emetrim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtrea3emetrim.TextChanged
 
        Try
            If Enannulation = True Then Exit Sub
            Txtrea3emetrim.Text = Txtrea3emetrim.Text.Replace(".", ",")
            Txtrea3emetrim.Select(Txtrea3emetrim.Text.Length, 0)
            If Txtrea3emetrim.Text = "" Then
                Txtrea3emetrim.Text = ""
                Dim a As [Decimal] = CDec(Txtmontantc.Text)
                Dim b As [Decimal] = CDec(Txtrea1ertrim.Text)
                Dim c As [Decimal] = CDec(Txtre2emetrim.Text)
                Txttotalrea.Text = CDec(b) + CDec(c)
                Txtmontantpaye.Text = CDec(b) + CDec(c)
                Txtresteapayer.Text = CDec(a) - (CDec(b) + CDec(c))
            Else
                Dim r As [Decimal] = CDec(Txtmontantc.Text)
                Dim re As [Decimal] = CDec(Txtre2emetrim.Text)
                Dim res As [Decimal] = CDec(Txtrea1ertrim.Text)
                Dim resul As [Decimal] = CDec(Txtrea3emetrim.Text)
                Txttotalrea.Text = CDec(re) + CDec(res) + CDec(resul)
                Txtmontantpaye.Text = CDec(re) + CDec(res) + CDec(resul)
                Txtresteapayer.Text = CDec(r) - (CDec(re) + CDec(res) + CDec(resul))
            End If
        Catch ex As Exception
            MsgBox("Vous devez saisir une valeur monétaire")
            Txtrea3emetrim.Text = ""
            'Txtrea3emetrim.Focus()
        End Try
 
    End Sub
 
    Private Sub Txtrea4emetrim_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtrea4emetrim.TextChanged
 
        Try
            If Enannulation = True Then Exit Sub
            Txtrea4emetrim.Text = Txtrea4emetrim.Text.Replace(".", ",")
            Txtrea4emetrim.Select(Txtrea4emetrim.Text.Length, 0)
            If Txtrea4emetrim.Text = "" Then
                Txtrea4emetrim.Text = ""
                Dim a As [Decimal] = CDec(Txtmontantc.Text)
                Dim b As [Decimal] = CDec(Txtrea1ertrim.Text)
                Dim c As [Decimal] = CDec(Txtre2emetrim.Text)
                Dim d As [Decimal] = CDec(Txtrea3emetrim.Text)
                Txttotalrea.Text = CDec(b) + CDec(c) + CDec(d)
                Txtmontantpaye.Text = CDec(b) + CDec(c) + CDec(d)
                Txtresteapayer.Text = CDec(a) - (CDec(b) + CDec(c) + CDec(d))
            Else
                Dim r As [Decimal] = CDec(Txtmontantc.Text)
                Dim re As [Decimal] = CDec(Txtre2emetrim.Text)
                Dim res As [Decimal] = CDec(Txtrea1ertrim.Text)
                Dim resul As [Decimal] = CDec(Txtrea3emetrim.Text)
                Dim result As [Decimal] = CDec(Txtrea4emetrim.Text)
                Txttotalrea.Text = CDec(re) + CDec(res) + CDec(resul) + CDec(result)
                Txtmontantpaye.Text = CDec(re) + CDec(res) + CDec(resul) + CDec(result)
                Txtresteapayer.Text = CDec(r) - (CDec(re) + CDec(res) + CDec(resul) + CDec(result))
            End If
        Catch ex As Exception
            MsgBox("Vous devez saisir une valeur monétaire")
            Txtrea4emetrim.Text = ""
            'Txtrea4emetrim.Focus()
        End Try
 
    End Sub
 
    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 <> "" And Txtrea1ertrim.Text = "" And Txtre2emetrim.Text <> "" And Txtrea3emetrim.Text <> "" And Txtrea3emetrim.Text <> "" Then
            Dim p1 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 = b + c + d + resul
            Txtmontantpaye.Text = b + c + d + resul
            Txtresteapayer.Text = p1 - (b + c + d + resul)
        End If
        If Txtmontantavance.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 c As [Decimal] = CDec(Txtrea3emetrim.Text)
            Dim d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = a + c + d + resul
            Txtmontantpaye.Text = a + c + d + resul
            Txtresteapayer.Text = r - (a + c + d + resul)
        End If
        If Txtmontantavance.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 d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = a + b + d + resul
            Txtmontantpaye.Text = a + b + d + resul
            Txtresteapayer.Text = r - (a + b + d + resul)
        End If
        If Txtmontantavance.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)
            Txttotalrea.Text = a + b + c + resul
            Txtmontantpaye.Text = a + b + c + resul
            Txtresteapayer.Text = r - (a + b + c + resul)
        End If
        If Txtmontantavance.Text <> "" And 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 = d + c + resul
            Txtmontantpaye.Text = d + c + resul
            Txtresteapayer.Text = r - (d + c + resul)
        End If
        If Txtmontantavance.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 d As [Decimal] = CDec(Txtrea4emetrim.Text)
            Txttotalrea.Text = d + a + resul
            Txtmontantpaye.Text = d + a + resul
            Txtresteapayer.Text = r - (d + a + resul)
        End If
        If Txtmontantavance.Text <> "" And 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 = a + c + resul
            Txtmontantpaye.Text = a + c + resul
            Txtresteapayer.Text = r - (a + c + resul)
        End If
        If Txtmontantavance.Text <> "" And 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 = b + d + resul
            Txtmontantpaye.Text = b + d + resul
            Txtresteapayer.Text = r - (b + d + resul)
        End If
        If Txtmontantavance.Text <> "" And 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 = b + c + resul
            Txtmontantpaye.Text = b + c + resul
            Txtresteapayer.Text = r - (b + c + resul)
        End If
        If Txtmontantavance.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)
            Txttotalrea.Text = b + a + resul
            Txtmontantpaye.Text = b + a + resul
            Txtresteapayer.Text = r - (b + a + resul)
        End If
        If Txtmontantavance.Text <> "" And 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 = b + resul
            Txtmontantpaye.Text = b + resul
            Txtresteapayer.Text = r - (b + resul)
        End If
        If Txtmontantavance.Text <> "" And 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 = c + resul
            Txtmontantpaye.Text = c + resul
            Txtresteapayer.Text = r - (c + resul)
        End If
        If Txtmontantavance.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)
            Txttotalrea.Text = a + resul
            Txtmontantpaye.Text = a + resul
            Txtresteapayer.Text = r - (a + resul)
        End If
        If Txtmontantavance.Text <> "" And 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 = d + resul
            Txtmontantpaye.Text = d + resul
            Txtresteapayer.Text = r - (d + resul)
        End If
        If Txtmontantavance.Text <> "" And 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 = resul
            Txtmontantpaye.Text = resul
            Txtresteapayer.Text = r - resul
        End If
        If Txtmontantavance.Text <> "" And 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 = a + resul
            Txtmontantpaye.Text = a + resul
            Txtresteapayer.Text = r - (a + resul)
        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

**Pol63** · 11/06/2007, 08h09

on peut tourner en boucle encore longtemps comme ca si tu veux
où et l'erreur exactement ? quelle ligne ?

CDEC plante si ce qu'on lui donne en parametre n'est pas un nombre !

**loverdev** · 11/06/2007, 08h22

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
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

La ligne où apparaît l'erreur est en gras

**Pol63** · 11/06/2007, 10h07

oui donc ton textbox ne contient pas un nombre ...
à toi de faire ce qu'il y a à faire
si tu t'en fout que ca soit pas un nombre tu fais
try
ligne d'erreur possible
catch
rien à mettre si on se fout de l'erreur
end try
continuer ...

**loverdev** · 11/06/2007, 11h17

C'est à dire je fais ça ?

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
 
 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)
            Try
                Dim m As [Decimal] = CDec(Txtrea4emetrim.Text)
                Txttotalrea.Text = w + p + o + m
                Txtmontantpaye.Text = w + p + o + m
                Txtresteapayer.Text = z - (w + p + o + m)
            Catch ex As Exception
 
            End Try
End If

**Pol63** · 11/06/2007, 11h39

non, je pense pas
suffit de comprendre le truc et apres tu l'adaptes à ce que tu veux faire, et y a que toi qui comprends vraiment ce que tu veux faire ...

en cas d'erreur sur une ligne, le programme s'arrete
pour tout ce qui est entre try et catch c'est différent, en cas d'erreur, ca ne bloque pas, et en plus ca va après catch (un genre de GOTO)
puis ca execute le code dans catch (on peut voir par code quelle est l'erreur et faire un traitement selon ce qui s'est passé, où meme rien faire si on s'attendait à l'erreur et qu'elle est "normale"
après le end try une erreur rebloquera l'appli

donc tu cherches les lignes qui peuvent planter ET que tu veux gérer ce plantage (les cdec plantent si on ne leur donne pas un nombre)
et tu mets ces lignes dans un ou plusieurs bloc try/end try

Txttotalrea.Text = w + p + o + m ca ne peut pas planter en théorie donc c pas judicieux de le mettre dans le try

sinon tu peux nous dire pourquoi tu declare as [decimal] avec des crochets plutot que as decimal sans crochet ?

**loverdev** · 11/06/2007, 11h48

Pour le Decimal c'est le logiciel vb2005 qui le met entre crochet.

Problème saisie d'un champ

VB.NET

Discussions similaires

Partager

Partager