[XL-2007] Forcer textbox numerique [Résolu]

[apdf1]

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

[kiki29]

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

[patricktoulon]

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 gardekiki29

au plaisir

[apdf1]

Bonjour patrick, Kiki29

Je te remercie sa marche nickel

Bonne fin d'apré midi

Cordialement

Max

[patricktoulon]

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


au plaisir

[kiki29]

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

[patricktoulon]

re
oui je sais mais le coté exercice qui m'a plu


au plaisir