Tigrette121
XLDnaute Nouveau
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
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