J'ai un textbox avec une valeur num=E9rique. Je voudrais=20
qu'il g=E9n=E9re un message d'erreur(msgbox...) =E0 la sortie=20
(lostFocus) s'il y a une valeur alpha au lieu d'une=20
numerique...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pierre Gard
if not isnumeric(textbox.text) then msgbox "" end if
-- Pierre
"nadine" a écrit dans le message de news:06d101c39c7a$48e4c040$ Salut,
J'ai un textbox avec une valeur numérique. Je voudrais qu'il génére un message d'erreur(msgbox...) à la sortie (lostFocus) s'il y a une valeur alpha au lieu d'une numerique...
Qqu'un peut m'aider ?
Merci nadine
if not isnumeric(textbox.text) then
msgbox ""
end if
--
Pierre
"nadine" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:06d101c39c7a$48e4c040$a101280a@phx.gbl...
Salut,
J'ai un textbox avec une valeur numérique. Je voudrais
qu'il génére un message d'erreur(msgbox...) à la sortie
(lostFocus) s'il y a une valeur alpha au lieu d'une
numerique...
if not isnumeric(textbox.text) then msgbox "" end if
-- Pierre
"nadine" a écrit dans le message de news:06d101c39c7a$48e4c040$ Salut,
J'ai un textbox avec une valeur numérique. Je voudrais qu'il génére un message d'erreur(msgbox...) à la sortie (lostFocus) s'il y a une valeur alpha au lieu d'une numerique...
Qqu'un peut m'aider ?
Merci nadine
François Picalausa
Bonjour/soir,
réponse sur la faq: http://faq.vb.free.fr/index.php?question
"nadine" a écrit dans le message de news:06d101c39c7a$48e4c040$
Salut,
J'ai un textbox avec une valeur numérique. Je voudrais qu'il génére un message d'erreur(msgbox...) à la sortie (lostFocus) s'il y a une valeur alpha au lieu d'une numerique...
Qqu'un peut m'aider ?
Merci nadine
Bonjour/soir,
réponse sur la faq:
http://faq.vb.free.fr/index.php?question
"nadine" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:06d101c39c7a$48e4c040$a101280a@phx.gbl
Salut,
J'ai un textbox avec une valeur numérique. Je voudrais
qu'il génére un message d'erreur(msgbox...) à la sortie
(lostFocus) s'il y a une valeur alpha au lieu d'une
numerique...
"nadine" a écrit dans le message de news:06d101c39c7a$48e4c040$
Salut,
J'ai un textbox avec une valeur numérique. Je voudrais qu'il génére un message d'erreur(msgbox...) à la sortie (lostFocus) s'il y a une valeur alpha au lieu d'une numerique...
Qqu'un peut m'aider ?
Merci nadine
Zoury
Salut Nadine! :O)
J'incites généralement les gens à fuir la fonction IsNumeric. Cette évalue si une chaine peut-être être interpréter comme étant une valeur numérique. Hors plusieurs format de chaine peuvent être interpréter comme telle et parfois les résutlats obtenus sont loins d'être ceux espérés.
Prend l'exemple suivant. Sur mon système, la virgule est le séparateur décimal et l'espace le séparateur de millier.
Private Function IsDigitsOnly(ByRef s As String) As Boolean IsDigitsOnly = Not s Like "*[!0-9]*" And LenB(s) > 0 End Function '***
J'utilise fonc plutôt c'est 2 fonctions offertes par Rick Rothstein :
' Pour les entiers seulement '*** Function IsDigitsOnly(Value As String) As Boolean ' Leave the next statement out if you don't ' want to provide for plus/minus signs If Value Like "[+-]*" Then Value = Mid$(Value, 2) IsDigitsOnly = Not Value Like "*[!0-9]*" End Function '***
' Pour les décimals '*** Function IsNumber(ByVal Value As String) As Boolean Dim DP As String ' Get local setting for decimal point DP = Format$(0, ".") ' Leave the next statement out if you don't ' want to provide for plus/minus signs If Value Like "[+-]*" Then Value = Mid$(Value, 2) IsNumber = Not Value Like "*[!0-9" & DP & "]*" And _ Not Value Like "*" & DP & "*" & DP & "*" And _ Len(Value) > 0 And Value <> DP And _ Value <> vbNullString End Function '***
' Autre version pour les nombres avec séparateur décimal (je n'ai pas trop regardé ce qu'elle fesait de plus..) '*** Function IsNumber(ByVal Value As String) As Boolean Dim DP As String Dim TS As String ' Get local setting for decimal point DP = Format$(0, ".") ' Get local setting for thousand's ' separator and eliminate them. TS = Mid$(Format$(1000, "#,###"), 2, 1) Value = Replace$(Value, TS, "") ' Leave the next statement out if you don't ' want to provide for plus/minus signs If Value Like "[+-]*" Then Value = Mid$(Value, 2) IsNumber = Not Value Like "*[!0-9" & DP & "]*" And _ Not Value Like "*" & DP & "*" & DP & "*" And _ Len(Value) > 0 And Value <> DP And _ Value <> vbNullString End Function '***
Merci de poster les réponses au groupe afin d'en faire profiter à tous
Salut Nadine! :O)
J'incites généralement les gens à fuir la fonction IsNumeric. Cette évalue
si une chaine peut-être être interpréter comme étant une valeur numérique.
Hors plusieurs format de chaine peuvent être interpréter comme telle et
parfois les résutlats obtenus sont loins d'être ceux espérés.
Prend l'exemple suivant. Sur mon système, la virgule est le séparateur
décimal et l'espace le séparateur de millier.
Private Function IsDigitsOnly(ByRef s As String) As Boolean
IsDigitsOnly = Not s Like "*[!0-9]*" And LenB(s) > 0
End Function
'***
J'utilise fonc plutôt c'est 2 fonctions offertes par Rick Rothstein :
' Pour les entiers seulement
'***
Function IsDigitsOnly(Value As String) As Boolean
' Leave the next statement out if you don't
' want to provide for plus/minus signs
If Value Like "[+-]*" Then Value = Mid$(Value, 2)
IsDigitsOnly = Not Value Like "*[!0-9]*"
End Function
'***
' Pour les décimals
'***
Function IsNumber(ByVal Value As String) As Boolean
Dim DP As String
' Get local setting for decimal point
DP = Format$(0, ".")
' Leave the next statement out if you don't
' want to provide for plus/minus signs
If Value Like "[+-]*" Then Value = Mid$(Value, 2)
IsNumber = Not Value Like "*[!0-9" & DP & "]*" And _
Not Value Like "*" & DP & "*" & DP & "*" And _
Len(Value) > 0 And Value <> DP And _
Value <> vbNullString
End Function
'***
' Autre version pour les nombres avec séparateur décimal (je n'ai pas trop
regardé ce qu'elle fesait de plus..)
'***
Function IsNumber(ByVal Value As String) As Boolean
Dim DP As String
Dim TS As String
' Get local setting for decimal point
DP = Format$(0, ".")
' Get local setting for thousand's
' separator and eliminate them.
TS = Mid$(Format$(1000, "#,###"), 2, 1)
Value = Replace$(Value, TS, "")
' Leave the next statement out if you don't
' want to provide for plus/minus signs
If Value Like "[+-]*" Then Value = Mid$(Value, 2)
IsNumber = Not Value Like "*[!0-9" & DP & "]*" And _
Not Value Like "*" & DP & "*" & DP & "*" And _
Len(Value) > 0 And Value <> DP And _
Value <> vbNullString
End Function
'***
J'incites généralement les gens à fuir la fonction IsNumeric. Cette évalue si une chaine peut-être être interpréter comme étant une valeur numérique. Hors plusieurs format de chaine peuvent être interpréter comme telle et parfois les résutlats obtenus sont loins d'être ceux espérés.
Prend l'exemple suivant. Sur mon système, la virgule est le séparateur décimal et l'espace le séparateur de millier.
Private Function IsDigitsOnly(ByRef s As String) As Boolean IsDigitsOnly = Not s Like "*[!0-9]*" And LenB(s) > 0 End Function '***
J'utilise fonc plutôt c'est 2 fonctions offertes par Rick Rothstein :
' Pour les entiers seulement '*** Function IsDigitsOnly(Value As String) As Boolean ' Leave the next statement out if you don't ' want to provide for plus/minus signs If Value Like "[+-]*" Then Value = Mid$(Value, 2) IsDigitsOnly = Not Value Like "*[!0-9]*" End Function '***
' Pour les décimals '*** Function IsNumber(ByVal Value As String) As Boolean Dim DP As String ' Get local setting for decimal point DP = Format$(0, ".") ' Leave the next statement out if you don't ' want to provide for plus/minus signs If Value Like "[+-]*" Then Value = Mid$(Value, 2) IsNumber = Not Value Like "*[!0-9" & DP & "]*" And _ Not Value Like "*" & DP & "*" & DP & "*" And _ Len(Value) > 0 And Value <> DP And _ Value <> vbNullString End Function '***
' Autre version pour les nombres avec séparateur décimal (je n'ai pas trop regardé ce qu'elle fesait de plus..) '*** Function IsNumber(ByVal Value As String) As Boolean Dim DP As String Dim TS As String ' Get local setting for decimal point DP = Format$(0, ".") ' Get local setting for thousand's ' separator and eliminate them. TS = Mid$(Format$(1000, "#,###"), 2, 1) Value = Replace$(Value, TS, "") ' Leave the next statement out if you don't ' want to provide for plus/minus signs If Value Like "[+-]*" Then Value = Mid$(Value, 2) IsNumber = Not Value Like "*[!0-9" & DP & "]*" And _ Not Value Like "*" & DP & "*" & DP & "*" And _ Len(Value) > 0 And Value <> DP And _ Value <> vbNullString End Function '***
