Un seul point ou virgule dans une TextBox

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:

---

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

---

Merci pour votre aide.

Bonjour,

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

Code:

---

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,

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.

Bonjour,

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

voici le code :

Code:

---

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,