Nombre dans un textbox

[M.D]

Bonjour aux lecteurs, adhérents de ce forum,

Pour info et application dans un projet

Existe-t-il une un code qui oblige à mettre rien ou un nombre dans un textbox (Userform) lors de la saisie
d’information ?

Merci de votre aide

D.M

 

[titiborregan5]

Re : Nombre dans un textbox

Bonjour M.D, le forum,
personnellement j'utilise

 if textbox="" then
msgbox "veuillez saisir le champs demandé", vb celle que tu veux
else
end if

 

[Pierrot93]

Re : Nombre dans un textbox

Bonjour,

une autre approche à utiliser dans le module de l'usf :

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

bon après midi
@+

 

[M.D]

Re : Nombre dans un textbox

Merci pour ces infos.
Et plus rapidement; GENIAL

mais pour arriver au top est-ce possible de ?
Faire une combinaison des deux, c'est à dire :
Prendre cette procedure avec un message à l'aide de MGS
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789,", Chr(KeyAscii)) = 0 Then KeyAscii = 0
et ajouter un message du type
msgbox "veuillez saisir le champs demandé"

Merci pour votre aide
D.M

 

[Pierrot93]

Re : Nombre dans un textbox

Re,

essaye comme ceci :

Option Explicit
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789,", Chr(KeyAscii)) = 0 Then KeyAscii = 0: _
    MsgBox "veuillez saisir le champs demandé"
End Sub

 

[M.D]

Re : Nombre dans un textbox

🙂 Plus que génial.

C'est exactement ce que je désirai

Merci infiniment

D.M