FONCTION ISNUMERIC AMÉLIORÉE (EMPÊCHE LES EXPOSANTS)
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014
-
7 avril 2005 à 17:39
Reservoir_Dogs Messages postés 3 Date d'inscription dimanche 6 août 2006 Statut Membre Dernière intervention 7 août 2006 - 6 août 2006 à 22:40
Reservoir_Dogs Messages postés 3 Date d'inscription dimanche 6 août 2006 Statut Membre Dernière intervention 7 août 2006 - 6 août 2006 à 22:40
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/30616-fonction-isnumeric-amelioree-empeche-les-exposants
https://codes-sources.commentcamarche.net/source/30616-fonction-isnumeric-amelioree-empeche-les-exposants
6 août 2006 à 22:40
'Vérification du contenu de la zone de texte Utilisateur
If Id_Utilisateur = "" Then
MsgBox " Vous devez saisir un nom d'utilisateur ! ", vbInformation, " Erreur! "
Txt_User.SetFocus
Exit Sub
ElseIf IsNumeric(Id_Utilisateur) = True Then
MsgBox " Le nom de l'utilisateur ne doit comprendre aucun chiffre ! ", vbInformation, " Erreur! "
Txt_User.SetFocus
Exit Sub
Il y a une petit probleme. S'y je met de l'alpha-numérique dans la zone de texte il y a pas de message d'erreur alor que j'en voudrait un.
Svp Quelqu'un pourrait m'aider....
24 nov. 2005 à 21:33
merci a toi
mais perso je vais ajouter a ta fonction juste 2 case pour les codes de + et -
10 avril 2005 à 19:19
10 avril 2005 à 19:17
et plus loint
[ il est certain que cette fonction peut être améliorée/optimisée/modifiée/etc... à vos besoins, mais personnellement, ma fonction répond exactement aux miens]
WSIsNumeric(Value As Variant) As Boolean
Dim Compteur As Byte
WSIsNumeric = False
if IsNumeric(Value) and instr(value,"E")=O and instr(value,"D")=0
WSIsNumeric = True
End IF
end function
Et voila
10 avril 2005 à 14:08
9 avril 2005 à 18:27
Dim Compteur As Byte
WSIsNumeric = False
if IsNumeric(Value) and instr(value,"E")=O and instr(value,"e")=0 and instr(value,"+")=O and instr(value,"-")=0
WSIsNumeric = True
End IF
end function
La, sauf oublie, ca devrais être bon. Si la valeur est concidéré comme bonne par isnuméruc, il nous reste plus que les E, + et - ou il reste encore un truc ?
S'il en reste, il suffit de rajouter un instr.
Je suis toujours pas sur qu'il y ai pas une fonction plus rapide qu'instr pour ca.
9 avril 2005 à 02:38
Ca c'est ta premisse de depart. C'est avec ce mandat que j'ai travaillé.
Tu peux ajouter a cette condition toutes tes exceptions. {if not isnumeric(mid$(value,compteur,1)) then exit function}
Selon les autres commentaires, tu auras du pain sur la planche pour inclure les exceptions. Les chiffres signés ne peuvent avoir un (+,-) qu'au premier caractere de la chaines. Le E que l'on doit tolérer ne doit pas etre a la premiere ni a la derniere position de la chaine, etc etc
Personnellement, j'organiserais mon code afin d'éviter de devoir faire ce genre de test autant que possible.
9 avril 2005 à 02:25
Function WSIsNumeric(Value As String) As Boolean
Dim Compteur As Byte
For Compteur = 1 To Len(Value)
'48 8, 57 9
If (Asc(Mid(Value, Compteur, 1)) < 48 Or Asc(Mid(Value, Compteur, 1)) > 57) And Mid(Value, 1, 1) <> "-" Then
WSIsNumeric = False
Exit Function
End If
Next
WSIsNumeric = True
End Function
Ça prend aussi les négatifs, le byte et bien ... c'est rare un nombre de 255 chiffres.
8 avril 2005 à 23:15
On fait des remarques juste pour voir si on peut la perfectionner (on donc tous apprendre).
pour Gobillot :
d'après l'exmple, j'en déduit qu'on veut tester si s'est numérique,pas currency (monértaire). Donc on veut pas de € et de F.
Quant a + et - au début, ca serais une function ispos ou isneg dans ce cas. Mais rien n'empèche de rajouter 2 instr (je crois d'ailleur qu'il y a mieux comme fonction que instr).
8 avril 2005 à 17:54
8 avril 2005 à 17:52
point, virgule, espace, "+","-", "E", "€" (remplace le "F")
8 avril 2005 à 16:33
8 avril 2005 à 16:30
Function WSIsNumeric(Value As Variant) As Boolean
Dim Compteur As Byte
WSIsNumeric = False
if IsNumeric(Value) and instr(value,"E")=O and instr(value,"e")=0
WSIsNumeric = True
End IF
end function
8 avril 2005 à 00:19
Max12, merci de me dire que ma fonction peut être optimisée, mais alors sois constructif, et indique-nous comment ... ???
7 avril 2005 à 23:16
Tu le passes deja dans le tamis du IsNumeric. Donc, a part les [E,e], y a-t-il d'autres exceptions ?
Autrement il serait plus court de passer en revue chaque caracteres de la chaine plutot que de faire une boucle de 32 à 256... Et de faire un IsNumeric sur chaque caracteres...
Function WSIsNumeric(Value As Variant) As Boolean
Dim Compteur As Byte
WSIsNumeric = False
if IsNumeric(Value) then
for Compteur =1 to len(value)
if not isnumeric(mid$(value,compteur,1)) then exit function
Next
WSIsNumeric = True
End IF
End Function
7 avril 2005 à 17:39