Nombre dans un textbox

T

titiborregan5

XLDnaute Accro

• 24 Avril 2013

• #2

Re : Nombre dans un textbox

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

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Avril 2013

• #3

Re : Nombre dans un textbox

Bonjour,

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

M

M.D

XLDnaute Occasionnel

• 24 Avril 2013

• #4

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Avril 2013

• #5

Re : Nombre dans un textbox

Re,

essaye comme ceci :

Code:

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

 

Vote positif 0 Vote négatif

M

M.D

XLDnaute Occasionnel

• 24 Avril 2013

• #6

Re : Nombre dans un textbox

🙂 Plus que génial.

C'est exactement ce que je désirai

Merci infiniment

D.M

 

Vote positif 0 Vote négatif