Isnumeric?
Isnumeric? - VB/VBA/VBS - Programmation
Marsh Posté le 24-05-2006 à 12:25:55
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
Marsh Posté le 24-05-2006 à 12:30:21
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 
Marsh Posté le 24-05-2006 à 12:42:15
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
Marsh Posté le 24-05-2006 à 12:14:33
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:
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
Merci d'avance!