comment verifier les entrees dans un tableau dynamique pour qu'elles ne soient que numeriques?

Salut,
Voila, j'importe un fichier txt qui n'a que des nombres dans un tableau dynamique .Avec ma boucle jusqu'au dernier nombre, je dois verifier si le nombre est bien un nombre, qu'il ne comporte pas de lettre ou de caracteres autres que des nombres, comment dois je faire, je planche depuis 3 jours sur ce probleme.
VOICI MON CODE
Open sFile For Input As #1
i = i - 1
While Not EOF(1)
i = i + 1
ReDim Preserve T(i)
Line Input #1, T(i)
testcaracteresdei$ = T(i)
'if testcaracteresdei????????n'est pas un nombre

MsgBox "Fichier incorrect comportant des caracteres autre que des chiffres"
'Close #1
'Exit Sub
'End If
Wend

un idée peut etre :

tu teste chaque caractere de testcaracteresdei$ par code ascii

la plage de valeur des nombre va de


for i = 1 to len(testcaracteresdei$)
lavaleur = mid(testcaracteresdei$,i,1)
if chr$(lavaleur) <48 or chr$(lavaleur)>58 then
MsgBox "Fichier incorrect comportant des caracteres autre que des chiffres"
...... procedure de sortie et manip supplementaires
end if

bonne prog
liquide

Bonjour,

ou bien il y a la fonction IsNumeric(expression) qui renvoie True si l'expression est un nombre.


Fanny

OK,merci, ça marche.j'ai essayé uniquement avec isNumeric et c'est ok mais il ne considere pas le point comme numerique
merci à vous
a++++

Oui, il considère la virgule comme séparateur.
Ce que tu peux alors faire c'est utiliser la méthode Replace
If IsNumeric(Replace(T(i),".",",")) Then ...

Fanny