Discussion :

[Tempus01]

Bonjour, le forum

Je cherche un code qui n'autorise qu'une seule virgule ou point dans une TextBox, et s'il y a un déjà un point la saisie de la virgule serait impossible et vise versa

Actuellement, ce code me permet de n'afficher que des chiffres , et .

Code :

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

1
2
  If InStr("0123456789.,", e.KeyChar) = 0 And e.KeyChar <> vbBack Then
            e.Handled = True

Merci pour votre aide.

[Miska59]

Bonjour,

Voici comment accepter un seul point ou une virgule dans un textbox.
voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub TextBox1_KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not IsNumeric(e.KeyChar) AndAlso e.KeyChar <> vbBack AndAlso e.KeyChar <> "." AndAlso e.KeyChar <> "," Then
            e.Handled = True
        End If
        If (e.KeyChar = ".") AndAlso ((TryCast(sender, TextBox)).Text.IndexOf(".") > -1) Then
            e.Handled = True
        End If
        If (e.KeyChar = ",") AndAlso ((TryCast(sender, TextBox)).Text.IndexOf(",") > -1) Then
            e.Handled = True
        End If
    End Sub

Cordialement,

[Tempus01]

Bonjour Miska59,

Merci pour votre code, il fonctionne bien, il ne reste plus qu'a trouver le code pour interdire la virgule si le point est déjà dans la textbox et vise versa.

[Miska59]

Bonjour,

la solution vous l'avais déjà dans un autre forum : https://codes-sources.commentcamarch...ns-une-textbox

voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Select Case e.KeyChar
            Case "0"c, "1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, vbBack
                Return
            Case "."c, ","c
                Dim texte As String = (TryCast(sender, TextBox)).Text
                If texte.Contains(".") OrElse texte.Contains(",") Then e.Handled = True
                Return
            Case Else
                e.Handled = True
                Return
        End Select

Cordialement,