Test Si la valeur d'une texbox est numerique

[gds35]

Mes AMIS du Forum Bonsoir ,

J'ai écrit une application dans laquelle j'ai ce p'tit bout de code....
Private Sub SAITAILLESAI_Change()
'
Dim SEPAREF As String
'
SEPAREF = SAITAILLESAI.Text
Select Case Len(SEPAREF)
Case 1
SEPAREF = SEPAREF & "."
End Select
SAITAILLESAI = SEPAREF
'
End Sub

Je recupere soit m.mm (Faux) soit 1.85(Vrai)
Je n'arrive pas a tester si ma Zone est NUMERIQUE..... Vu qu'il y a le point de la mise en forme.

Merci de votre aide. Cordialement GDS35

 

[Pierrot93]

Re : Test Si la valeur d'une texbox est numerique

Bonsoir,

regarde ceci, sachant que chez moi c'est le point le séparateur de décimal :

If IsNumeric(TextBox1) Then MsgBox "ok numérique..."

mais ne renverra rien si deux ponts ( : ) dans la zone... sans plus de détail...

bonne fin d'après midi
@+

 

[youky(BJ)]

Re : Test Si la valeur d'une texbox est numerique

Bonsoir,
Peut être . . .
If IsNumeric(Replace(SAITAILLESAI.Text, ".", ",")) Then MsgBox "ok"

Bruno

 

[job75]

Re : Test Si la valeur d'une texbox est numerique

Bonjour gds35, salut Pierrot,

Tarabiscoté votre code gds35

Essayez :

Private Sub SAITAILLESAI_Change()
If Len(SAITAILLESAI) = 1 Then SAITAILLESAI = SAITAILLESAI & "."
If IsNumeric(SAITAILLESAI) Or IsNumeric(Replace(SAITAILLESAI, ".", ",")) Then
MsgBox "numérique" 'pour tester
End If
End Sub

La valeur numérique est détectée quel que soit le séparateur décimal utilisé.

Edit : salut youky, j'allais t'oublier

A+