Discussion :

[guitalex]

Bonjour!

j'affiche un Userform avec un txtbox demandant a l'utilisateur d'entrer un 1 de téléphone. J'aimerais fixer la saisie avec des chiffre uniquement et que les caractères non-numérique ne s'affichent pas...

voici ou j'en suis :

Private Sub txtbox_TelephonePrincipale_Change()

Dim Telephone As String

If IsNumeric(txtbox_TelephonePrincipale.Value) Then
Telephone = txtbox_TelephonePrincipale.Text
Select Case Len(Telephone)
Case 3
Telephone = Telephone & " "
Case 7
Telephone = Telephone & "-"
End Select
txtbox_TelephonePrincipale.Text = Telephone

End If

End Sub

MERCI de votre aide!

[guitalex]

OK j'ai trouvé!!


Merci DSL

[guitalex]

Merde, ma solution ne fonctionne pas!

voici mon code:

Private Sub txtbox_TelephonePrincipale_Change()

Dim Telephone As String

If IsNumeric(txtbox_TelephonePrincipale) Then
Telephone = txtbox_TelephonePrincipale
Select Case Len(Telephone)
Case 3
Telephone = Telephone & " "
Case 7
Telephone = Telephone & "-"
End Select
txtbox_TelephonePrincipale = Telephone

Else

txtbox_TelephonePrincipale = ""

End If

End Sub

a chaque fois que l'utilisateur entre une lettre, cela efface tout les caractères entrés. Moi je veux juste que la txtbox affiche les caracteres numériques et pas les lettres sans rien enlever...

que dois-je faire?

merci

[casefayere]

Bonjour,
Regardes sur ce lien
et penches-toi sur cet évènement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub txtbox_TelephonePrincipale_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Bon courage et bonne journée

[guitalex]

MERCI infinimment! ca fonctionne...

cependant, j'ai un dernier problème...

afin de respecter le format du telephone, je "Lock=true" le txtbox. Cependant, je ne peux meme pu effacer les entrées...

Comment faire pour ne plus entrer de valeurs au dela d'un certain format tout en étant capable d'effacer celles deja inscrites...?

J'Essai de jouer avec le code KeyAscii du backspace (08) mais cela ne fonctionne pas!!

voici mon nouveau code:


Private Sub txtbox_TelephonePrincipale_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)


If InStr("1234567890", Chr(KeyAscii)) = 0 Then

KeyAscii = 0

Else
Dim Telephone As String

If IsNumeric(txtbox_TelephonePrincipale) = True Then

Telephone = txtbox_TelephonePrincipale
Select Case Len(Telephone)
Case 3
Telephone = Telephone & " "
Case 7
Telephone = Telephone & "-"
End Select
txtbox_TelephonePrincipale = Telephone

End If

If Len(txtbox_TelephonePrincipale) = 13 And Chr(KeyAscii) <> 8 Then

txtbox_TelephonePrincipale.Locked = True

End If
End If
End Sub

[casefayere]

D'abord, n'oublies pas les balises "code" en sélectionnant ton code et en cliquant sur "#"

et si tu te contentais de ce code, à tester ! :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub txtbox_TelephonePrincipale_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Telephone As String
 
If InStr("1234567890 -", Chr(KeyAscii)) = 0 Or txtbox_TelephonePrincipale.SelStart = 0 And Chr(KeyAscii) = "-" Then
  MsgBox "caractere non autorisé"
  KeyAscii = 0
End If
Telephone = txtbox_TelephonePrincipale
Select Case Len(Telephone)
Case 3
Telephone = Telephone & " "
Case 7
Telephone = Telephone & "-"
End Select
'ci-dessous à adapter
If Len(Telephone) >= 12 Then
  MsgBox "saisie sur 10 chiffres"
End If
 
txtbox_TelephonePrincipale = Telephone
 
End Sub