Problème avec certains nombres.

Signaler
Messages postés
10
Date d'inscription
lundi 29 décembre 2008
Statut
Membre
Dernière intervention
22 mai 2010
-
Messages postés
10
Date d'inscription
lundi 29 décembre 2008
Statut
Membre
Dernière intervention
22 mai 2010
-
Bonjour, je suis en train de faire un petit jeu avec un banque.
Dans cette banque on peut verser de l'argent.
Je peux ajouter de l'argent MAIS il y a certains nombres que je ne peux pas mettre dans la textbox.

CODE :

If Form1.Label2.Caption < Text1.Text Then
MsgBox "Vous ne pouvez pas placer un montant superieur à votre argent actuel !", vbInformation, "Argent"
Else
If Text1.Text = "" Then
MsgBox "Entrez une valeur dans la case corespondante !", vbInformation, "Valeur Incorrecte"
Else
Form4.Label5.Caption = Val(Form4.Label5.Caption) - Val(Text1.Text)
Label4.Caption = Val(Label4.Caption) + Val(Text1.Text)
MsgBox "Vous venez de placer " & Text1.Text & " dans votre banque", vbInformation, "Argent placé"
End If
End If

Les valeurs que je ne peux pas ajouter sont celles qui se terminent par un 0
ex : 10,20,30,40,50,100 .... etc

Merci d'avance pour vos réponses

5 réponses

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Salut
"que je ne peux pas ajouter" : qui t'en empêche ?
Tu ne nous dis même pas ce qui se passe, ni ce que contiennent tes variables, Label et autre TextBox au moment du problème ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
10
Date d'inscription
lundi 29 décembre 2008
Statut
Membre
Dernière intervention
22 mai 2010

Oui je me suis peut être mal exprimé :
Quand je met par exemple 50 dans la textbox1 ça fait comme ci je n'avais pas assez d'argent !
Cette partie du code est prise en compte :

If Form1.Label2.Caption < Text1.Text Then
MsgBox "Vous ne pouvez pas placer un montant superieur à votre argent actuel !", vbInformation, "Argent"

Il m'affiche cette msgbox quand j'essaye d'ajouter certains nombres. Alors que j'ai bien assez d'argent pour le placer.
Messages postés
10
Date d'inscription
lundi 29 décembre 2008
Statut
Membre
Dernière intervention
22 mai 2010

Excusez moi pour le double post mais :
Form1.label2.caption c'est l'argent que je possède.
Label4.caption c'est l'argent que j'ai dans ma banque.
form4.label5.caption c'est l'accumulation de tout mes achats et qui me re calcule mon argent.
J'espère que ça vous sera utile.
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
74
Ok
Cela peut venir du fait que, dans ta condition, tu compares deux textes et nom deux chiffres.
Par exemple, sous forme de texte, "200" est inférieur à "90" (le 2 est bien avant le 9)
Il te suffit donc de bien convertir :
If Val(Form1.Label2.Caption) < Val(Text1.Text) Then

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
10
Date d'inscription
lundi 29 décembre 2008
Statut
Membre
Dernière intervention
22 mai 2010

Ohh... Merci j'avais même pas vu mon erreur.
Une petite erreur de rien du tout mais fais chercher pas mal de temps
Mais merci ça fonctionne maintenant.