Imposer la saisie de nombres dans un textbox

Bonjour,

Va voir là:

http://www.excelabo.net/xl/controles.php#nombretextbox

http://www.excelabo.net/xl/controles.php#nombretextbox2



--
On apprend pas à un vieux singe à faire des grimaces
"ManBas" <nospam-manbas@wanadoo.fr> a écrit dans le message de
news:%236qyydCSFHA.164@TK2MSFTNGP12.phx.gbl...

Bonjour les amis du forum,
Comment fait-on pour...?
Merci d'avance.

Bonjour,

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
Exit Sub
End If
Beep
KeyAscii = 0
End Sub

ManBas wrote:

Bonjour les amis du forum,
Comment fait-on pour...?
Merci d'avance.

--
Cordialement,

Jacques.

Merci Jacques et Clément.
A bientôt.

"Jacques93" <jacques.le-goc_ENLEVER@wanadoo.fr> a écrit dans le message de
news: eTAAUnCSFHA.1172@TK2MSFTNGP12.phx.gbl...

Bonjour,

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then
Exit Sub
End If
Beep
KeyAscii = 0
End Sub

ManBas wrote:

Bonjour les amis du forum,
Comment fait-on pour...?
Merci d'avance.

--
Cordialement,

Jacques.