Avoir un point ou une virgule dans une textbox

Version imprimable

Bonjour
J'ai récupéré se code qui me permet de prendre en compte dans un nombre un point ou une virgule
Ma TextBox1 écrit dans une cellule de mon fichier EXCEL
Mon problème c'est que quand j'écris 123.12 ou 123,12 cela fonctionne
mais quand j'écris 123.123 ou 123,123 cela m'écrit 123123
Comment puis je avoir 3 chiffre après la virgule?

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Option Explicit
 
Const entrees_decimales_permises = ".,0123456789" & vbCr & vbBack
Const Point = "."
Const Virgule = ","
 
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_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(TextBox1, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
        KeyAscii = 0
    End If
End Sub

07/09/2015, 13h21
Invité

Bonjour,
http://www.developpez.net/forums/d15...e/#post8290464

Citation:

Comment puis je avoir 3 chiffre après la virgule?

Code:

v= round(10.123456789,3)
07/09/2015, 13h46
phiphi27700

Comment puis je avoir 3 chiffre après la virgule?

Bonjour rdurupt
peux tu développer

Code:

v= round(10.123456789,3)

v ?
merci
07/09/2015, 13h50
Invité

la fonction round te retourne une valeur en précisant le nombre de chiffre après la virgule!
07/09/2015, 14h02
phiphi27700

Comment puis je avoir 3 chiffre après la virgule?

Merci mais quand tu écris v= a quoi correspond-il si c'est une variable a qui doit on la déclarer?
Merci
07/09/2015, 14h04
Invité

c'est un exemple pour e montrer que la variable v récupère bien 10.123

Salut, un code qui me rappelle qqch .....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(TextBox1, Virgule) > 0 And KeyAscii = Asc(Virgule) Then
        KeyAscii = 0
    ElseIf InStr(TextBox1, Virgule) > 0 Then
        Pos = InStr(TextBox1.Text, Virgule)
        If Len(TextBox1.Text) = Pos + 3 Then
            TextBox1.Text = Left$(TextBox1.Text, Len(TextBox1.Text) - 1)
        End If
    End If
End Sub

08/09/2015, 06h15
phiphi27700

Comment puis je avoir 3 chiffre après la virgule?

Merci rdurupt et kiki29
Cela fonctionne
Bonne journée