Format Personnalisé pour TextBox (10)

marcelio · 30 Septembre 2016

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 · 30 Septembre 2016

Bonsoir Marcelio
Bonsoir le fil,Le Forum

une approche a adapter lol

VB:

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 · 30 Septembre 2016

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

Format Personnalisé pour TextBox (10)

marcelio

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

marcelio

XLDnaute Occasionnel

Discussions similaires