Controler si une chaine est bien un entier ou un chiffre à virguleRésolu

Question

Bonjour,

D&#233;sol&#233; de poser cette question de d&#233;butant. J'aurais pens&#233; trouver la r&#233;ponse sur le site mais je n'ai rien trouv&#233;.
Je voudrais simplement tester si une cha&#238;nede caract&#232;res contient bien un entier ou un d&#233;cimal. La chaine correspond &#224; un prix, 5 serait valide, 5,5 &#233;galement, 5,5,6 ne le serait pas...
Je pensais qu'il existait une fonction de type isdate() pour les valeurs num&#233;riques mais je ne trouve pas. J'avais dans l'id&#233;e de v&#233;rifier si le contenu correspondait bien a des chiffres et si il n'y avait pas 2 fois une virgule dans la chaine mais je me dis qu'il doit y avoir plus simple, non??

merci d'avance

cs_CanisLupus · Accepted Answer

Il y a d&#233;j&#224; eu des sujets idem dans le forum. Ca m'&#233;tonne que tu n'aies pas trouv&#233;.
Les solutions sont diverses et vari&#233;es, perso, en g&#233;n&#233;ral, j'utilise la simple fonction :

If IsNumeric(TaChaine) then
'c'est du num&#233;rique
else
'c'en est pas
end if

A condition qu'il n'y ait pas de s&#233;parateur de milliers dans TaChaine.

Cordialement, CanisLupus

cs_Eric25 · Answer

Merci

C'est exactement ce que je cherchais. En plus, je l'avais d&#233;j&#224; utilis&#233; mais je n'arrivais pas &#224; me souvenir du nom. J'ai cherch&#233; avec entier, num&#233;rique et controle chaine, j'aurais du effectuer une recherche plus large...

Merci encore

Gobillot · Answer

marche dans tous les cas:

Private Function IsNum(s As String) As Boolean
    Dim x As Single
    On Error Resume Next
    x = s    If Err 0 Then IsNum True
End Function

pour l'utiliser:
If IsNum(Text1.Text) Then MsgBox "OUI c'est num&#233;rique" Else MsgBox "NON c'est pas"

Daniel

Controler si une chaine est bien un entier ou un chiffre à virgule

3 réponses

Discussions similaires