TEXTBOX EN NUMÉRIQUE
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
-
27 août 2008 à 14:18
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 27 août 2008 à 14:18
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 27 août 2008 à 14:18
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/47773-textbox-en-numerique
https://codes-sources.commentcamarche.net/source/47773-textbox-en-numerique
27 août 2008 à 14:18
Private Sub Text1_KeyPress(KeyAscii As Integer) If InStr(1, "-0123456789.," & Chr$(vbKeyBack), Chr$(KeyAscii)) 0 Then KeyAscii 0
End Sub
ce code (amélioré ou non) est trop léger pour être conservé, merci néanmoins pour ton partage