Format téléphone dans TextBox...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais vos aide, afin de savoir si l'on peut mettre devant ce format téléphone de ma TexBox, le mot "Tél ; " devant ce format ???


Private Sub TelPort_AfterUpdate()
TelPort.Value = Format(TelPort.Value, "0#"" ""##"" ""##"" ""##"" ""##")
End Sub

Merci pour votre aide.

Bien amicalement,
Christian

 

[bbb38]

Bonsoir Christian, le forum,

Une méthode, en utilisant une procédure évènementielle Exit sur la Textbox :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Me.TextBox1.Value = Format(Me.TextBox1.Value, "00 00 00 00 00")

End Sub

Cordialement,

Bernard
P.S. Mille excuses. J'ai répondu trop rapidement, sans lire correctement ta demande. Je teste sur un TextBox.

 

[bbb38]

Bonsoir Christian, le forum,
Pas terrible, mais cela fonctionne.
Cordialement,
Bernard

 

[bbb38]

Bonsoir Christian, le forum,
Avec une seule ligne de code.
Cordialement,
Bernard

 

[Christian0258]

Re, le forum, bbb38

Merci, infiniment Bernard, c'est impec…

Bien à toi,
Christian