Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2577 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Isnumeric?

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Isnumeric?

n°1373992
Touls
Posté le 24-05-2006 à 12:14:33  profilanswer
 


Bonjour à tous!
 
Je rencontre actuellement un ptit souci avec mon code Vba. J'ai une variable "text" déclarée en String ou Variant qui représente la saisie d'une InputBox. Le problème, c'est lorsque je vérifie si la partie gauche de cette saisie est un nombre:
 

Citation :

dim text as String
 
text = InputBox("Veuillez entrer le numéro du patient que vous recherchez suivi de 'A' pour un anonyme" )
           If text = Null Or text = "" Then
            MsgBox ("veuillez saisir un numéro" )
 
If ((Right(text, 1) = "A" )) And (IsNumeric(Left((text), Len(text) - 1) = True)) Then
                num_ano.Visible = True
                num_ano.SetFocus
                numero = Val(Replace(text, "A", "" ))
                apelvisib = 1
                 
            Else    ...            
               
            End If


 
Par exemple, si je taperdohgh"A", cela s'éxecute quand même... Je pense que le problème est focalisé sur le "Isnumeric" m'enfin j'avoue que je suis un peu perdu, et je n'ai pas trouvé de reelle solution dans d'autres postes :/ Quelqu'un aurait-il une idée concernant mon dilemne?
 
Merci d'avance!

mood
Publicité
Posté le 24-05-2006 à 12:14:33  profilanswer
 

n°1374007
DamienCYS
Posté le 24-05-2006 à 12:25:55  profilanswer
 

SALUT,
 
je ne connait pas isnumeric, mais j'ai eu besoin de vérifier si une variable était bien un nombre et j'ai utiliser une convertion en ASCI et fait mon test sur cette valeur asci voici mon code :
If Asc(Mid$("variable à tester", "position début", longueur)) >= 48 and Asc(Mid$("variable à tester", "position début", longueur)) <= 57 Then
 .....
end fi

n°1374014
Touls
Posté le 24-05-2006 à 12:30:21  profilanswer
 

Bon excusez moi du flood que j'ai pu commettre ...
L'erreur ne venait en fait pas du tout du Isnumeric, mais des parentheses de mon bloc "If"...il n'effectuait à chaque fois que l'une des deux conditions Oo..
En retirant celles du début et de la fin de la condition, il arrive bien à faire le "And".
 
Merci encore et désolé du dérangement :o

n°1374024
mareek
Et de 3 \o/
Posté le 24-05-2006 à 12:42:15  profilanswer
 

déjà, vire le "text=null" dans le premier if. pour savoir si une variable est à null, utilise exclusivement la fonction isnull(MaVaraible). De plus, seul les variant peuvent être null.


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Isnumeric?

 

Sujets relatifs
if not Isnumeric...Isnumeric: voilà une fonction qui parait bien !?
Plus de sujets relatifs à : Isnumeric?


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)