XL 2019 Verrouillage du textbox

Private Sub Textbox1_keyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("1234567890", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

exemple : ControlTipText =" Ne Saisir que des Chiffres ! "

Cliquez pour agrandir...

Eric C à dit:

Bonjour le forum
BonjourVidal Salvador, bonjour Jean-Marie

Un autre exemple ou l'on peut saisir soit un entier ou un nombre décimal au bon format (",") pour le transfert vers cellules.

VB:

Private Sub textBox1_Change()
    On Error Resume Next
   
    If Not IsNumeric(Right(TextBox1, 1)) And Right(TextBox1, 1) <> "," Then
            TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
    End If
End Sub

Bon ouikand à toutes & à tous

@+ Eric c

Cliquez pour agrandir...