Problème dans mon prog avec des chiffresRésolu

Question

Bonjour,
Alors voila j'ai un problème dans mon premier programme, j'explique ce que je veux faire (enfin je vais essayé ^^) :
Donc je dispose d'un label et d'un textbox, le label contient la valeur 100 et le textbox est modifiable (il est mis à 0 au lancement), sauf que si la valeur du textbox dépasse celui du label un message d'erreur apparait.
Le problème est le suivant : si je marque 2, il me dit que le chiffre est trop grand (hors vous êtes d'accord 100>2) mais si je marque 10 ou 1 c'est bon, donc je remarque que le problème est qu'il fait la différence entre les dixaines, les centaines, etc (enfin je pense).
Pourtant je ne trouve pas mon problème, voici le code : (le label sapelle "argent" et le textbox "mise")

Private Sub mise_Change()
If mise.Text > argent.Caption Then
MsgBox "Vous n'avez pas assé d'argent!"
End If
End Sub 

Help me please :/

cs_hassen · Accepted Answer

bonjour,
la comparaison que tu fait est une compraraison de texte et pas de nombre
"100"<"2"
donc pour corriger tu doit comparer les valeurs numerique

Private Sub mise_Change()
If val(mise.Text) > val(argent.Caption) Then
MsgBox "Vous n'avez pas ass&#233; d'argent!"
End If
End Sub 

Hassen TUNISIE

VBEnJ0Y · Answer

Salut,

C'est normal puisque tu ne pr&#233;cise pas que c'est la valeur num&#233;rique des 2 champs qu'il faut comparer. Il te faudra utiliser la fonction Val(), comme ceci :

Private Sub mise_Change()
    If Val(mise.Text) > Val(argent.Caption) Then
        MsgBox "Vous n'avez pas ass&#233; d'argent!"
    End If
End Sub

++
VBEnJ0Y

cs_Willi · Answer

Lut,
Peut-&#234;tre qu'en convertissant les valeurs de type "string" contenu dans ton label et textbox en entier sa marchera mieux 

Private Sub mise_Change()
   if (isnumeric(mise.text)) and (isnumeric(argent.caption)) then
      If cint(mise.Text) > cint(argent.Caption) Then
         MsgBox "Vous n'avez pas ass&#233; d'argent!"
     End If
   else
      msgbox "l'une des 2 valeurs n'est pas un nombre"
   end if
End Sub

VBEnJ0Y · Answer

Ahhh, hassen m'a devanc&#233;  lol

++

fred62240 · Answer

Merci beaucoup, tu vien de m'apprendre quelque chose ;)
(en même temps c'est mon premier programme ^^)

encore merci.
Bye

fred62240 · Answer

Oula appéne fini de remercier il y en a 2 autres qui si sont mis ^^
THX