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!