Format Dans Textbox 00.00.00.00.00

[Marboi]

Bonjour le forum,

Je n'arrive pas à imposer le format du style N° de téléphone dans un textbox et j'avais trouvé sur le site ce format pour les dates mais je n'arrive pas à le modifier pour le N° de Tél :

Private Sub TextBox7_Change()
'aide à la saisie de la date
Dim Texte As String
Texte = TextBox7.Text
Select Case Len(Texte)
Case 2, 5
Texte = Texte & "."
End Select
TextBox7.Text = Texte
End Sub

Ça marche bien pour la date, je pense que Case 2 et 5 ont de l'importance, mais je n'arrive pas à l'adapter au format du téléphone
" xx.xx.xx.xx.xx. "

Pourriez-vous m'indiquer la procédure car je n'ai rien trouvé dans la recherche ?

Merci d'avance.

 

[sebgo]

Re : Format Dans Textbox 00.00.00.00.00

Bonjour Marboi,
Essai ce bout de code:
TextBox7=Format(sheets("NomFeuille").range("A"), "00 00 00 00 00")
Bonne soirée.

 

[_Thierry]

Re : Format Dans Textbox 00.00.00.00.00

Bonsoir Marboi, SebGo, le Forum

Dans la même lignée que le code original pour les Dates :

Private Sub TextBox7_Change()
Dim Texte As String
 
With Me.TextBox7
    Texte = .Text
            Select Case Len(Texte)
                Case 2, 5, 8, 11, 14
                Texte = Texte & " "
            End Select
    .Text = Texte
End With

End Sub

Bonne Soirée

@+Thierry
​

 

[sebgo]

Re : Format Dans Textbox 00.00.00.00.00

Re Marboi,
Excuses moi car le code que je t'ai donné est pour l'affichage.
Essaie celui-ci. Il est de Thierry ou de Ti (Pas tres sûr)
Private Sub TextBox7_Change()
Dim Telephone As String
Telephone = TextBox7.Text
Select Case Len(Telephone)
Case 2, 5, 8, 11, 14
Telephone = Telephone & " "
End Select
TextBox7.Text = Telephone
End Sub
A+
SEBGO

 

[sebgo]

Re : Format Dans Textbox 00.00.00.00.00

Bonsoir Thierry,
Je ne t'avais pas appercu. Mais c'est coe si je copiais ce que tu tapais. Ca conforte ce que je disais.
Bonne fin de journee
A+
Sebgo

 

[Marboi]

Re : Format Dans Textbox 00.00.00.00.00

Bon j'ai répondu mais à priori ça n'a pas fonctionné.

Je disai merci à vous deux Segbo et Thierry, ça fonctionne. Je me suis cassé la tête et je savais bien que ces chiffres 2 et 5 avaient une importance, une suite de chiffres en fonction de ce qu'on veut... J'aurai pu chercher longtemps, et vous, hop, un p'tit coup de clavier et ça marche !...

Encore merci de votre aide et bonne soirée. 🙂 🙂

 

[JYLL]

Re : Format Dans Textbox 00.00.00.00.00

Bonsoir Marboi, Segbo, Thierry et le forum,

Autrement pour faire un format téléphone il mettre celui-çi:

0#" "##" "##" "##" "##

Bonsoir et bon test

 

[_Thierry]

Re : Format Dans Textbox 00.00.00.00.00

Bonsoir Jean-Yves, Marboi, SebGo, le Forum

Oui ta solution pourrait convenir, quoique j'y trouve ah queuh beaucoup de quotes !!! (lol)

Mais si je ne m'abuse dans son premier post Marboi demandait ce format lors de l'évènement Change de sa TextBox...

Et si l'on force le Format de la manière que tu proposes Jean-Yves, au moment de la saisie dans cette TextBox, le Capitaine Haddock traiterait certainement le programmeur de "bachibouzouk" !!! (re lol)

Non ce que l'on peut appliquer, à condition d'avoir un autre Contrôle dans le UserForm, c'est un format au moment de l'évènement Exit (par exemple)

Private Sub TextBox7_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.TextBox1 = Format(Me.TextBox1, "0# ## ## ## ##")
End Sub

Bonnes Fêtes

@+Thierry
​

 

[JYLL]

Re : Format Dans Textbox 00.00.00.00.00

Bonsoir Thierry,

Ce format est le format pour mettre dans une cellule, de toutes façons il ne serai pas pris dans VB.

bonne soirée.

@+

 

[Marboi]

Re : Format Dans Textbox 00.00.00.00.00

Bonsoir Jyll, Thiéerry, Sebgo, le forum,

J'ai pris la formule "Case 2,5,8,11,14" qui fonctionne à merveille dans la textbox.

Merci à tous de vous être intéressé à mon cas et bonne soirée. 🙂