Discussion :

[phiphi27700]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

v= round(10.123456789,3)

[phiphi27700]

Bonjour rdurupt
peux tu développer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

v= round(10.123456789,3)

v ?
merci

[Invité]

la fonction round te retourne une valeur en précisant le nombre de chiffre après la virgule!

[phiphi27700]

Merci mais quand tu écris v= a quoi correspond-il si c'est une variable a qui doit on la déclarer?
Merci

[Invité]

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

[kiki29]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[phiphi27700]

Merci rdurupt et kiki29
Cela fonctionne
Bonne journée