Discussion :

[natab]

Bonjour a tous,

je suis en train de realiser un projet en utilisant le code VBA sous Excel.

Voila mon projet, j'ai cree un USF, dans ce USF j'ai differentes TextBox que j'ai limite aux numeriques et avec deux chiffres apres la virgule (ou le point) maximum. J'ai aussi bloque la saisie pour ne pas depasser une borne numerique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub TextBox6_change()
    Static anc As String
    If Val(Replace(TextBox6.Text, ",", ".")) > 1 Then TextBox6.Text = anc Else anc = TextBox6.Text
 
    If Right(TextBox6, 1) = "." Or Right(TextBox6, 1) = "," Then TextBox6.MaxLength = Len(TextBox6) + 2
End Sub
 
Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Dim allowedKeys As String
    allowedKeys = "0123456789,." & Chr(8)
    If InStr(allowedKeys, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

Maintenant je me trouve face un probleme:

J'aimerais que l'on puisse saisir qu'une seule virgule OU qu'un seul point dans ma TextBox6. Quel code je doit rajouter et ou le mettre ?

Merci beaucoup de votre aide !!!

[kiki29]

Salut, voir sur http://didier-gonard.developpez.com/...e-dans-texbox/ ?

Sinon qqch comme ceci, à adapter à ton contexte car ici la virgule est remplacée automatiquement par un point

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
21
22
23
24
25
Option Explicit
 
Const entrees_decimales_permises = ".,0123456789" & vbCr & vbBack
Const Point = "."
Const Virgule = ","
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Pos As Long
    If KeyAscii = Asc(Virgule) Then
        If InStr(TextBox1, Point) = 0 Then
            KeyAscii = Asc(Point)
        Else
            KeyAscii = 0
        End If
    ElseIf InStr(entrees_decimales_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
    ElseIf InStr(TextBox1, Point) > 0 And KeyAscii = Asc(Point) Then
        KeyAscii = 0
    ElseIf InStr(TextBox1, Point) > 0 Then
        Pos = InStr(TextBox1.Text, Point)
        If Len(TextBox1.Text) = Pos + 2 Then
            TextBox1.Text = Left$(TextBox1.Text, Len(TextBox1.Text) - 1)
        End If
    End If
End Sub