XL 2016 mise en format d'une textbox

[marc.gilliand]

Bonjour,
j'ai le code suivant dans un USF :

Private Sub TextBox23_Change()

Sheets("USF5").Cells(11, 2).Value = TextBox23.Value

End Sub

et dans la même textBox, j'aimerai que celle-ci soit formatée comme suit :
TextBox23.Text = Format(TextBox23, "#,##0.00 CHF")

Le problème est lorsque je charge l'UF, lorsque j'écris dans la Textbox 1000, Excel me donne cela comme format 1.0C

Merci de votre aide.

 

[cathodique]

Bonjour @marc.gilliand ,

En utilisant touche entrée ou tab à la fin de la saisie

Private Sub TextBox23_AfterUpdate()
TextBox23.Text = Format(TextBox23, "#,##0.00 chf")
End Sub

 

[marc.gilliand]

Merci beaucoup ça marche d'enfer. Belle soirée a vous.