XL 2019 Verrouillage du textbox

[Vidal Salvador]

Bonjour,
svp j'aimerais verrouiller mon textbox de tel sorte que je puis saisir uniquement les chiffres, au cas ou l'on saisira une lettre que l'on envoi un message pour dire de saisir les chiffres.
Merci cardinalement!

 

[ChTi160]

Bonjour Salvador
un exemple de ce qui peut ce faire
n'autorise que les Chiffres !

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

tu peux mettre l'obligation dans la propriété ConTrolTipText du TextBox .

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

il y en a d'autre
Bonne Journée
Jean marie

 

[Vidal Salvador]

Merci Jean Marie, bonne journée.

 

[ChTi160]

Re
Un petit fichier exemple , vite fait !
Jean marie

 

[Eric C]

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.

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

 

[Vidal Salvador]

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.

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

Merci beaucoup Eric C.

 

[Vidal Salvador]

Svp sur cette même lancé j'aimerais bloque mon textbox uniquement pour les dates et l'heure.
Merci cardinalement.

 

[ChTi160]

Re tu as des exemples sur le forum de saisie de Dates dans TextBox( faire une recherche en haut a droite)
Jean marie