[R] Vérification nombre dans Input

[touslesmatins]

Bonjour,
je cherche à vérifier dans un input que les données inscrites soient bien des chiffres et non un melanGe de chiffres et de lettres ou des lettres. Le code ne fait pas la difference.

► Afficher le texte

Code : Tout sélectionner

$nombre = InputBox("Tutorial", "Entrez un nombre :")
 $p=IsNumber($nombre)
 If $p >= 0 Then
    MsgBox(0,"1", "")
Else
    MsgBox(0,"E", "")
EndIf

J'ai trouvé ce bout de code, mais retourne toujours la meme chose...

► Afficher le texte

Code : Tout sélectionner

$nombre = InputBox("Tutorial", "Entrez un nombre :")
If (($nombre >= 0) AND ($nombre <= 1000000)) Then
    MsgBox(0,"Tutorial", "Ce nombre est compris entre 0 et 1000000.")
Else
    MsgBox(0,"Tutorial", "Ce nombre n'est pas compris entre 0 et 1000000.")
EndIf

Une idée ?

Merci

[jbnh]

Salut, jette un oeil ici.

[Iste]

Le plus simple est de demander directement a l'input de ne prendre que des nombre

Code : Tout sélectionner

#include <EditConstants.au3>
GUICtrlCreateInput ( "text", left, top , width , height ,$ES_NUMBER)

[touslesmatins]

Merci.
Pour le lien que vous m'indiquez, cela fait 24h que je le lis en long et en large. J'avais avant de poster cette demande fait des recherches et dans la doc et sur le net. Je vois bien que cela correspond mais comment l'utiliser...

► Afficher le texte

Code : Tout sélectionner

InputBox("coucou", "Nombre...", "...", "", _ 
                200, 150, 410, 300)

Apres cet inputbox je souhaite verifier si ce qui est écrit est un nombre.
Personne pour une aide plus approfondie ...
Et merci Iste, mais je pense que ta soluce n'est valable qu'avec les GUI, ce qui n'est pas mon cas.

[touslesmatins]

Complément...
J'ai esayé ceci...

► Afficher le texte

Code : Tout sélectionner

if not IsNumber ( $answer )=1 then

mais, meme resultat le check ne se fait pas...
Bon dimanche

[Voodoo]

Code : Tout sélectionner

$nombre = InputBox("Tutorial", "Entrez un nombre :")
If (StringIsInt($nombre) or StringIsFloat($nombre)) Then
MsgBox(0,"1", "")
Else
MsgBox(0,"E", "")
EndIf

Attention, InputBox return un String donc il faut utiliser les fonctions String pour tester...

[ani]

Passe par un Number au lieu de IsNumber

Code : Tout sélectionner

$nombre = InputBox("Tutorial", "Entrez un nombre :")

If Number($nombre) Then
MsgBox(0,"Vous avez choisis un chiffre", $nombre)
Else
MsgBox(0,"Vous avez choisis une lettre", $nombre)
EndIf

bonne continuation

[touslesmatins]

Merci à vous cela me convient.

[ani]

Un oubli de ma part mais pourquoi isnumber ne retourne pas ?

exemple

Code : Tout sélectionner

 Dim $TheForm
  $TheForm = 5
  If IsNumber($TheForm) Then
    If $TheForm < 1 Or $TheForm > 10 Then
      MsgBox(0,"","Please enter a number between 1 and 10.")
    Else
      MsgBox (0,"","Thank you.")
    EndIf
  Else
    MsgBox(0,"","Please enter a numeric value.")
  EndIf

Maintenant mettez la valeur de $TheForm entre guillemet (simple ou double).
Hooo il nous dit que ....
Voilà pourquoi l'inputbox ne fonctionnera pas (y a peut etre une astuce mais la seul trouvé c'est number )

[touslesmatins]

merci