Forcer textbox numerique

Version imprimable

17/11/2011, 13h20
apdf1

Forcer textbox numerique

Bonjour,

J'ai un USF, comprenant une TextBox dans laquelle je renseigne un N° Tél.

Je suis à la recherche d' un code pour forcer un texte numérique dans un textBox avec message.

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement
Max

Salut, voir http://didier-gonard.developpez.com/...e-dans-texbox/ qui devrait t'apporter une réponse

Sinon un bout de code, certainement perfectible

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Const entrees_entieres_permises = "0123456789" '& vbCr & vbBack
 
'   Modifier propriété MaxLength TextBox6 : 14
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox6.Text = Format(TextBox6.Text, "0# ## ## ## ##")
End Sub
 
Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(entrees_entieres_permises, Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
 
Private Sub TextBox6_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Len(TextBox6.Text) = 10 Then TextBox6.Text = Format(TextBox6.Text, "0# ## ## ## ##")
End Sub

heu...!!!

bonjour

je vois difficilement comment il serait perfectible

si ce n'est que pour le message

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Option Explicit
 
Const entrees_entieres_permises = "0123456789" & vbCr & vbBack
 
'   Modifier propriété MaxLength TextBox6 : 14
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox6.Text = Format(TextBox6.Text, "0# ## ## ## ##")
End Sub
 
Private Sub TextBox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr(entrees_entieres_permises, Chr(KeyAscii)) = 0 Then
    KeyAscii = 0
MsgBox "ce caractere  n'est pas permis"
End If
End Sub
 
Private Sub TextBox6_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Len(TextBox6.Text) = 10 Then TextBox6.Text = Format(TextBox6.Text, "0# ## ## ## ##")
End Sub

nickel je garde:ccool:kiki29

au plaisir

17/11/2011, 15h34
apdf1

Bonjour patrick, Kiki29

Je te remercie sa marche nickel

Bonne fin d'apré midi

Cordialement

Max

re
je cherchait justement un truc dans le genre mais pour les dates dans un textbox

avec ton model j'ai fait ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
'********************************************************************
'forcer le textbox a acepter que les chifre et met le tout  au format date
'********************************************************************
'   Modifier propriété MaxLength TextBox7 : 8
Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox7.Text = Format(TextBox7, "dddd  dd/mmmm/yyyy")
End Sub
 
Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
 
    If InStr(entrees_entieres_permises, Chr(KeyAscii)) = 0 Then
        KeyAscii = 0
        MsgBox "ce caractere  n'est pas permis"
    End If
 
End Sub
 
Private Sub TextBox7_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If Len(TextBox7.Text) = 8 Then
        madate = TextBox7
'ici on est obligé de rajouter les signes
        madate = Mid(madate, 1, 2) & "/" & Mid(madate, 3, 2) & "/" & Mid(madate, 5, 4)
        TextBox7 = Format(madate, "dddd dd/mmmm/yyyy")
 
    End If
End Sub

voila simplement en tapant les 2 chiffres du jour ,les2 chiffres du mois, les 4 chiffres de l'année et tout accroché
exemple en tapant "01032011"
j'obtient "mardi 01/mars/2011

:ccool::ccool::ccool:
au plaisir

17/11/2011, 16h47
kiki29

Re, pour les dates il vaut mieux passer par un DTPicker, voir http://excel.developpez.com/faq/?pag...nstallMSCOMCT2
17/11/2011, 17h45
patricktoulon

re

re
oui je sais mais le coté exercice qui m'a plu:mouarf:8O

au plaisir