Dans les textbox , des userform : valeurs à prendre en compte en numerique

Bonjour

Dans les UserForm
lors de la lecture des données entrées dans des textbox , comme par exemple
valeur1 = textbox1.value

comment faire pour que la valeur1 soit considérée comme un valeur numérique
en non pas comme une chaine de caractères (sachant que la donnée entrée
dans le textbox1 , est une valeur numérique avec décimale , exemple ( 1.55)

Merci de votre précieuse aide

Salut,

Peut être avec IsNumeric, puis si VRAI, avec CDbl.

Bonjour.

Et s'assurer d'avoir le séparateur numérique accepté par CDBL.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
 
a = TextBox1.Text
'Mettre le séparateur décimal reconnu par CDBL
a = Replace(a, ",", ".")
a = Replace(a, ".", Format(0, "."))
 
If IsNumeric(a) Then
 [a2] = CDbl(a)
Else
 MsgBox "Ce n'est pas une valeur numérique"
End If
 
End Sub

Salut, un tutoriel de Didier à lire.
Sinon qqch dans le genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
 
Const entrees_decimales_neg_permises = "-.,0123456789" & vbCr & vbBack
Const Point = "."
Const Virgule = ","
Const Moins = "-"
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = Asc(Point) Then
        If InStr(TextBox1, Virgule) = 0 Then
            KeyAscii = Asc(Virgule)
        Else
            KeyAscii = 0
        End If
    ElseIf InStr(entrees_decimales_neg_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(TextBox1, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
        KeyAscii = 0
    End If
 
    If KeyAscii = Asc(Moins) Then
        If InStr(TextBox1, Moins) = 0 Then
            KeyAscii = Asc(Moins)
        Else
            KeyAscii = 0
        End If
    End If
End Sub
 
Private Sub TextBox1_Change()
Dim Pos As Integer
    Pos = InStr(TextBox1.Text, Moins)
    If Pos > 1 Then
        TextBox1.Text = Moins & Left(TextBox1.Text, Pos - 1) & Mid(TextBox1.Text, Pos + 1)
    End If
End Sub

On vérifie que la Virgule, si utilisée ne l'est qu'une fois, si Point tapé on le remplace par la Virgule.
Si Moins tapé en cours de chaine, on le replace en début de chaine, et on vérifie que si utilisé ne l'est qu'une fois.

Si le séparateur décimal est un Point et non une Virgule : il faut permuter Virgule/Point dans TextBox1_KeyPress

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii = Asc(Virgule) Then
        If InStr(TextBox1, Point) = 0 Then
            KeyAscii = Asc(Point)
        Else
            KeyAscii = 0
        End If
    ElseIf InStr(entrees_decimales_neg_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(TextBox1, Point) > 0 And KeyAscii = Asc(Point) Then
        KeyAscii = 0
    End If
 
    If KeyAscii = Asc(Moins) Then
        If InStr(TextBox1, Moins) = 0 Then
            KeyAscii = Asc(Moins)
        Else
            KeyAscii = 0
        End If
    End If
End Sub