<% Function VerifNumerique(nb) Dim regEx Set regEx = New RegExp regEx.Global = True regEx.Pattern = "^[0-9,]+$" notag = regEx.test(nb) VerifNumerique = notag End Function Dim ch ch = "750,2" If VerifNumerique(ch) = False Then Response.Write "Le nombre " & ch & " n'est pas valide" Else Response.Write "Le nombre " & ch & " est valide" End If %>
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.