Discussion :

[beegees]

Bonjour tout le monde,

Je compare deux valeurs numériques :

If Val(textMontantInsere.Text) < Val(textMontantDu.Text) Then

textMontantInsere.Text => 0,05
textMontantDu.Text => 0,50 €

il dit en fait que ce n'est pas vrai et il va dans le else :

Code :

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

1
2
3
4
If Val(textMontantInsere.Text) < Val(textMontantDu.Text) Then
        Else
            commandAcheterBoisson.Enabled = True
        End If

il active donc le bouton alors que tant que la somme insérée est inférieure à la somme dûe, le bouton ne devrait pas apparaître.

Dans la fenêtre d'exécution, quand je fais ceci :

Code :

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

1
2
3
4
?Val(textMontantInsere.Text)
 0 
?Val(textMontantDu.Text)
 0

J'obtiens zéro (0) pour chaque valeur

Est-ce que val() ne prend pas le premier digit donc 0 pour 0,50 et 0 pour 0,05 ?

Je ne comprends pas pourquoi le signe € apparaît aussi dans textMontantDu.Text alors que j'utilise val pour trasnformer le text en numérique.

Merci d'avance pour votre aide et bon Dimanche.

beegees

[DAUDET78]

C'est la virgule qui te coince le "VAL"
Remplace la virgule par un "."

[beegees]

C'est la virgule qui te coince le "VAL"
Remplace la virgule par un "."

Salut,

Merci pour ta réponse qui a résolu mon problème.

beegees

[DAUDET78]

un exemple :

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
Private Sub Form_Load()
textMontantInsere$ = "0,05"
textMontantDu$ = "0,50 €"
If ChangeVirgulePoint(textMontantInsere$, textMontantDu$) Then
    Debug.Print " Plus petit"
Else
    Debug.Print "plus grand"
End If
Stop
 
End Sub
 
Function ChangeVirgulePoint(S$, SS$)
I% = InStr(S$, ",")
S1$ = S$
If I% > 0 Then Mid$(S1$, I%) = "."
Debug.Print S1$
I% = InStr(SS$, ",")
S2$ = SS$
If I% > 0 Then Mid(S2$, I%) = "."
If Val(S1$) < Val(S2$) Then ChangeVirgulePoint = True Else ChangeVirgulePoint = False
End Function

[beegees]

un exemple :

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
Private Sub Form_Load()
textMontantInsere$ = "0,05"
textMontantDu$ = "0,50 €"
If ChangeVirgulePoint(textMontantInsere$, textMontantDu$) Then
    Debug.Print " Plus petit"
Else
    Debug.Print "plus grand"
End If
Stop
 
End Sub
 
Function ChangeVirgulePoint(S$, SS$)
I% = InStr(S$, ",")
S1$ = S$
If I% > 0 Then Mid$(S1$, I%) = "."
Debug.Print S1$
I% = InStr(SS$, ",")
S2$ = SS$
If I% > 0 Then Mid(S2$, I%) = "."
If Val(S1$) < Val(S2$) Then ChangeVirgulePoint = True Else ChangeVirgulePoint = False
End Function

Un super grand merci pour ce complément d'information qui va m'être bien utile pour la suite.

Bon Dimanche et encore merci.

beegees

[DAUDET78]

Un programme un peu plus "propre"

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
Private Sub Form_Load()
textMontantInsere$ = "0,05"
textMontantDu$ = "0,50 €"
If ChangeVirgulePoint(textMontantInsere$, textMontantDu$) Then
    Debug.Print " Plus petit"
Else
    Debug.Print "plus grand"
End If
Debug.Print textMontantInsere$, textMontantDu$
Stop
 
End Sub
 
Function ChangeVirgulePoint(ByVal S$, ByVal SS$)
I% = InStr(S$, ",")
If I% > 0 Then Mid$(S$, I%) = "."
 
I% = InStr(SS$, ",")
If I% > 0 Then Mid(SS$, I%) = "."
 
If Val(S$) < Val(SS$) Then ChangeVirgulePoint = True Else ChangeVirgulePoint = False
End Function

Je ne suis pas un expert en VB6 .... mais je fais des programmes qui marchent !

[beegees]

Un programme un peu plus "propre"

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
Private Sub Form_Load()
textMontantInsere$ = "0,05"
textMontantDu$ = "0,50 €"
If ChangeVirgulePoint(textMontantInsere$, textMontantDu$) Then
    Debug.Print " Plus petit"
Else
    Debug.Print "plus grand"
End If
Debug.Print textMontantInsere$, textMontantDu$
Stop
 
End Sub
 
Function ChangeVirgulePoint(ByVal S$, ByVal SS$)
I% = InStr(S$, ",")
If I% > 0 Then Mid$(S$, I%) = "."
 
I% = InStr(SS$, ",")
If I% > 0 Then Mid(SS$, I%) = "."
 
If Val(S$) < Val(SS$) Then ChangeVirgulePoint = True Else ChangeVirgulePoint = False
End Function

Je ne suis pas un expert en VB6 .... mais je fais des programmes qui marchent !

Merci Daudet78 pour ton dévouement sur ce forum.

Bon Dimanche.

beegees