Peut-on prédifinir un format ds TextBox

[dolphin]

Bonjour Forum,



J'aimerais savoir si nous pouvoir définir un format dans un textbox?

Mon textbox fait référence à un numéro de téléphone. Ce que j'aimerais faire c'est de prédéfinir ce format comme suit :

(xxx) xxx-xxxx

Note : dans le textbox les x nu seront pas défini sait seulement pour démontrer mon format.

J'aimerais que lorsque l'entrée de l'information dans ce textbox les (), le - ainsi que l'espace ne puisse pas disparaitre ( c'est à dire que la saisie se ferait seulement sur les x avec des chiffres seulement)

J'espère que vous me comprenez mon problème.

Si vous désirez plus informations, il me fera plaisir de vous en donner pour avoir une meilleure compréhension.

Merci d'avance de tout l'aide que vous m'apporterez. Je l'apprécie.


Bonne journée.

Dolphin

 

[Eric C]

Bonjour le forum
Bonjour Dolphin

Je suis parti sur le principe que s'agissant de numération, les chiffres seront invariables (123) 123-1234 puis j'ai mis en application l'une des géniales idées de Ti (que je salue au passage) quand à la création de dates. Notons qu'il te faut au minimum 2 TextBoxs dans ton UserForm (ce n'est qu'au passage de focus au TextBox2 que le format prendra la valeur convenue), ce qui donne :

Private Sub TextBox1_Change()
Dim Texte As String
Dim t1 As String
Dim t2 As String
  Texte = TextBox1.Text
  Select Case Len(Texte)
    Case 0
      Texte = Texte & '('
  End Select
  t1 = TextBox1.Text
  Select Case Len(Texte)
     Case 4
     t1 = t1 & ')'
     End Select
  
  t2 = TextBox2.Text
  Select Case Len(Texte)
     Case 9
     t2 = t2 & '-'
     End Select
  
  TextBox1.Text = Texte
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  TextBox1.Text = Format(TextBox1.Text, '(###) ###-####')
End Sub