Format Personnalisé pour TextBox (10)

[marcelio]

Bonsoir le Forum,
En Y1 j'ai une formule qui me donne un résultat qui change souvent. Exemple 10
Ce résultat s'ajoute dans un TextBox, je voudrais ajouter des parenthèses à ma TextBox ce qui me donnerais (10)
J'ai chercher et j'ai trouver ce code, mais celui ci me donne comme résultat -(10)

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, "(#0)")
End Sub

J'ai oublier quelque chose mais je n'arrive pas à trouver quoi ?
Si vous avez la solution je suis preneur.
Marcelio

 

[ChTi160]

Bonsoir Marcelio
Bonsoir le fil,Le Forum

une approche a adapter lol

Private Sub UserForm_Initialize()
Dim i As Byte
i = 12
Me.TextBox1.Text = Format(i, "(" & i & ")")
End Sub

bonne fin de Soirée
Amicalement
Jean Marie

 

[marcelio]

Bonsoir Jean Marie et le Forum,
J'ai testé ton code, mais les parenthèses ne s'affiche pas.
Par contre à force de chercher j'ai trouver ceci et ça fonctionne.

Private Sub UserForm_Activate()
TextBox1.Value = Range("liste!Y1").Value
TextBox1 = Format(TextBox1, "(#0)")
End Sub

Bonne soirée à vous tous.
Marcelio