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