vérification

Question

Voici mon code :

If Not IsNumeric(TextBox2.Text) Then
        MsgBox("Non")
Else
        MsgBox("Oui")
End If

Mais avec ce code, il n'accepte même pas les virgule quand il s'agit des montants.
Aidez moi 
Merci

Utilisateur anonyme · Answer

Quel est le contenu de la fonction IsNumeric ?







__________
Kenji

( 


Nouveau forum VBA/Office

spamito · Answer

Monétaire

allthew3 · Answer

monétaire sans chiffres ???

Utilisateur anonyme · Answer

La fonction IsNumerci n'existe pas en dotnet.
Ca donnerai donc pour du monétaire :



Private Function IsCurrency(ByVal n As String) As Boolean
  Return Decimal.TryParse(n, System.Globalization.NumberStyles.Currency, Nothing, Nothing)
End Function ,

----

(Nouveau forum VBA/Office

allthew3 · Answer

ou sinon caractère par caractère :

if Char.IsNumeric(caractere) ...

ou alors une expression régulière

cs_rt15 · Answer

Salut,

Si spamito fait du VB6 (Et c'est trompé d'endroit pour poster)...

Une petite citation de casy :
=======================================

Il s'agit apparement d'un problème de paramètres régionnaux dans ta
config de Windows. Si tu est configuré avec la virgule comme séparateur
décimal (France), certaine fonction de VB ne reconnaisse que les
nombres avec des virgules.

Si tu est configuré avec le points (Anglais/Internationnal) ces même fonctions reconnaissent aussi bien le point que la virgule.


Solution : Soit modifier ta config Windows, soit replacer dans tes
chaines le point par la virgule --> fonction replace (VB6 mais pas
VB5)


petite astuce : pour savoir si tu dois faire la modif, en début de prog tu fait 1/2 dans une chaine de caractère, et tu teste si le second caractère est une virgule :

virgule --> modif à faire

point --> pas de modif, pas de problème. 
=======================================

Vérification

6 réponses

Votre réponse

Discussions similaires