Textbox

salut

je veux msgbox apparait si textbox1 not numeric or textbox1 < 1 or textbox1 >4 et meme temp vider la zone textbox1 auto pour introduire le numero encore une fois

Bonjour,

Cela ci-dessous c'est forcé en valeur numérique un msgbox s'affiche (forcer la valeur numérique) :

https://forum.excel-pratique.com/excel/forcer-la-valeur-numerique-dans-le-textbox-t35670.html

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  ' Si la valeur n'est pas comprise entre 0 et 9 et qu'elle n'est pas un backspace
 If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then
    MsgBox "Caractère non autorisé"
    KeyAscii = 0 'on annule la pression sur la touche
 End If
End Sub

et celui-là de code ci-dessous tu choisis les chiffres que tu souhaites dans la textbox 1 uniquement

Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 If InStr(1, "0123456789.,", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then
    MsgBox "Caractère non autorisé"
    KeyAscii = 0
 End If
End Sub

à tester dans ton USF

Note : change ici

"0123456789.,"

crdlt,

André

merci c'est gentil

mais si la valeur comprise entre 1 et 10 comment creer keyascii de n° 10