Comment formaté TextBox

[Tigrette121]

Bonjour à tous,

Voici mon problème : dans une userform si je mets le code suivant

Private Sub TextBox14_Change()
Sheets('Fiche_client').Select
[S65536].Select
Selection.End(xlUp)(2).Select
ActiveCell.Offset(0, -2) = Ajoutclient.TextBox14

TextBox14 = Format(TextBox14, '### ### ####')


l'entrée de donnée de cette 'Box' sépare mon numéro en trois (c'est ce que je veux).

Comment je dois faire si je veux, dans le code ci-dessous, aussi que la 'Box14' soit au même format que ci-haut. A quel endroit je dois lui donner le format ?

Private Sub CommandButton3_Click()

Dim MaLigne As Integer

MaLigne = Sheets('Fiche_client').Range('A65536').End(xlUp).Row + 1
Sheets('Fiche_client').Range('B' & MaLigne) = Me.TextBox1
Sheets('Fiche_client').Range('Q' & MaLigne) = Me.TextBox14
Sheets('Fiche_client').Range('R' & MaLigne) = Me.TextBox15

End Sub

Merci à l'avance, ici nous avons toujours de bonnes suggestions de solutions

 

[Pierrot93]

Bonjour Tigrette,

J'ai pas testé mais as tu essayé le code ci dessous !!!

Sheets('Fiche_client').Range('Q' & MaLigne) = Format(Me.TextBox14
, '### ### ####')

En esperant t avoir aidé

bonne journée

 

[Tigrette121]

Bonjour Pierrot,

Malheureusement cela ne fonctionne pas.

Merci quand même pour la suggestion, je ne l'avais pas essayé de cette façon.