Discussion :

[loverdev]

J'ai un pb. A chaque fois que je saisi un montant au niveau du champ "montant avancé" le calcul automatique des autres champs est juste (txttotalrea, txtmontantpaye et txtresteapayer). Mais quand j'efface le contenu du champ txtmontantavance, le calcul des autres champs est incorrect

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim mc As [Decimal] = CDec(Txtmontantc.Text)
            Dim total As [Decimal] = CDec(Txttotalrea.Text)
            Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
            Dim var As [Decimal]
            If Txtmontantavance.Text = "" Then
                Exit Sub
                Txtmontantpaye.Text = CDec(Txttotalrea.Text)
                Txtresteapayer.Text = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)
            Else
                var = total + ma
                Txtmontantpaye.Text = total + ma
                Txtresteapayer.Text = mc - var
            End If

[Pol63]

tu sais ce que fais Exit Sub ?
il sort de la sub

Code :

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

1
2
3
4
5
6
7
8
9
10
 
If Txtmontantavance.Text = "" Then
                Exit Sub
                Txtmontantpaye.Text = CDec(Txttotalrea.Text)
                Txtresteapayer.Text = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)
            Else
                var = total + ma
                Txtmontantpaye.Text = total + ma
                Txtresteapayer.Text = mc - var
            End If

donc tout ce qui est après n'est pas exécuté !!!


tu devrais quand meme lire un tuto dans la partie algorythme des tutoriels (pas dans .net)

[loverdev]

C'était une faute de frappe . J'ai enlevé le exit sub et le calcul est tjrs erroné

[Pol63]

erroné dans le sens 5+3 = 9 au lieu de 8
ou alors tu voudrais que 5 = 8 ?

[loverdev]

erroné dans le sens 5+3=9

[Pol63]

c'est impossible, vs sait compter ...
c'est ton code qui doit etre faux

[Aspic]

J'ai un pb. A chaque fois que je saisi un montant au niveau du champ "montant avancé" le calcul automatique des autres champs est juste (txttotalrea, txtmontantpaye et txtresteapayer). Mais quand j'efface le contenu du champ txtmontantavance, le calcul des autres champs est incorrect

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim mc As [Decimal] = CDec(Txtmontantc.Text)
            Dim total As [Decimal] = CDec(Txttotalrea.Text)
            Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
            Dim var As [Decimal]
            If Txtmontantavance.Text = "" Then
                Exit Sub
                Txtmontantpaye.Text = CDec(Txttotalrea.Text)
                Txtresteapayer.Text = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)
            Else
                var = total + ma
                Txtmontantpaye.Text = total + ma
                Txtresteapayer.Text = mc - var
            End If

Ca sens le probleme avec le "Exit Sub"
Mets des espions pour voir quelle ligne exactement plante !

[loverdev]

J'ai enlevé le exit sub mais ca ne marche toujours pas

[Aspic]

Dans quelle procédure est inseré le code qui tu nous as donné ?

[loverdev]

si je sélectionne le checkbox "optoui" le libellé et le textbox de "montant avancé" apparaît sinon il disparaît dans le cas de sélection de "optnon" et il ya réinitialisation des valeurs des montants "txttotalrea", "txtmontantpaye" et "txtresteapayer".

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
 
 Private Sub Txtmontantavance_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txtmontantavance.TextChanged
        If annulation = True Then Exit Sub
        Txtmontantavance.Text = Txtmontantavance.Text.Replace(".", ",")
        Txtmontantavance.Select(Txtmontantavance.Text.Length, 0)
        Try
            If Txtmontantavance.Text = "" Then
                Dim mc As [Decimal] = CDec(Txtmontantc.Text)
                Dim total As [Decimal] = CDec(Txttotalrea.Text)
                Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
                Txtmontantpaye.Text = CDec(Txttotalrea.Text)
                Txtresteapayer.Text = CDec(Txtmontantc.Text) - CDec(Txttotalrea.Text)
            Else
                Dim mc As [Decimal] = CDec(Txtmontantc.Text)
                Dim total As [Decimal] = CDec(Txttotalrea.Text)
                Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
                Dim var As [Decimal]
                var = total + ma
                Txtmontantpaye.Text = total + ma
                Txtresteapayer.Text = mc - (total + ma)
            End If
        Catch ex As Exception
 
        End Try
        If IsNumeric(Txtmontantavance.Text) Then
            Exit Sub
        ElseIf (Txtmontantavance.Text) = "" Then
            Exit Sub
        Else
            MsgBox("Vous devez saisir une valeur monétaire", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
            Txtmontantavance.Text = ""
        End If
    End Sub

et voici le code des checkbox :

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
 
Private Sub Optoui_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Optoui.CheckedChanged
        Label14.Visible = True
        Txtmontantavance.Visible = True
        'Txtmontantavance.Text = ""
    End Sub
 
    Private Sub Optnon_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Optnon.CheckedChanged
        Label14.Visible = False
        Txtmontantavance.Visible = False
        If Txtmontantavance.Text <> "" Then
            Dim total As [Decimal] = CDec(Txttotalrea.Text)
            Dim mc As [Decimal] = CDec(Txtmontantc.Text)
            Dim ma As [Decimal] = CDec(Txtmontantavance.Text)
            Txttotalrea.Text = total - ma
            Txtmontantpaye.Text = CDec(Txttotalrea.Text)
            Txtresteapayer.Text = mc - CDec(Txttotalrea.Text)
        End If
        If Txtmontantavance.Text = "" Then
            Dim var As [Decimal]
            Dim total As [Decimal] = CDec(Txttotalrea.Text)
            Dim mc As [Decimal] = CDec(Txtmontantc.Text)
            Txttotalrea.Text = total
            Txtmontantpaye.Text = total
            var = CDec(Txttotalrea.Text)
            Txtresteapayer.Text = mc - var
        End If
    End Sub

[loverdev]

SVP aidez moi je suis bloqué