cibleo
XLDnaute Impliqué
Bonsoir le forum
Voilà, j'ai une textbox dans lequel j'autorise la saisie du point comme séparateur de mes décimales.
Or, j'aimerais ne pas pouvoir le saisir par inadvertance en 1ère position.
Bloquer la saisie en sorte comme pour les lettres.
Pouvez-vous m'aider, cela doit pourtant être simple non
Cibleo
Voilà, j'ai une textbox dans lequel j'autorise la saisie du point comme séparateur de mes décimales.
Or, j'aimerais ne pas pouvoir le saisir par inadvertance en 1ère position.
Bloquer la saisie en sorte comme pour les lettres.
VB:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Limite la saisie aux chiffres + point et limite à un seul séparateur (le point)
If InStr("0123456789.", Chr(KeyAscii)) = 0 Or InStr(TextBox1.Value, ".") <> 0 And Chr(KeyAscii) = "." Then KeyAscii = 0: Exit Sub
If InStr(1, TextBox1.Value, ".") <> 0 Then 'limite à 2 décimales
If Len(TextBox1.Value) > InStr(1, TextBox1.Value, ".") + 1 Then KeyAscii = 0
End If
End Sub
Pouvez-vous m'aider, cela doit pourtant être simple non
Cibleo