Test sur une chaîne de caractères [Résolu]

[ThunderBolt_]

Bonsoir,
je voudrais créer une fonction qui renvoie true ou false selon que la chaine de caractère passée en argument n'est composée que de chiffres (0123456789).

Merci d'avance.

[Philippe JOCHMANS]

Bonjour,

Il faut utiliser la fonction IsNumeric de cette manière :

Code :

1
2
3
4
5
6
7
8
Public Function TestNumerique(strTest As String) As Boolean
    If IsNumeric(strTest) Then
        TestNumerique = True
    Else
        TestNumerique = False
    End If
 
End Function

Je l'ai tapé à la main, cela devrait fonctionner.

Starec

[ouskel'n'or]

Ou en reprenant la fonction de Starec,

Code :

1
2
3
Public Function TestNumerique(strTest As String) As Boolean
    TestNumerique = IsNumeric(strTest)
End Function

Pas testé

[Philippe JOCHMANS]

Envoyé par ouskel'n'or

Ou en reprenant la fonction de Starec,

Code :

Pas testé

Testé , et plus court.
Mais tu peux tout simplement utiliser

Code :

IsNumeric(LaChaineATester)

C'est une fonction, elle renvoie Vrai si c'est un numérique, et Faux s'il y'a autre chose que des chiffres.

On va chercher loin dés fois.

Starec

[ThunderBolt_]

Merci, en effet isNumeric fonctionne à merveille.