Format TextBox

[Bruce68]

Bonsoir à tous
Dans un TextBox comment peut on mettre " % " au bout d'un chiffre en sachant que ce ciffre peut en comporter 2 + 2 apres la virgule

 

[Staple1600]

Re : Format TextBox

Bonsoir


Si j'ai bien compris

Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "0.00""%""")
CommandButton1.SetFocus
End Sub

ou

Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "0.0000""%""")
CommandButton1.SetFocus
End Sub

 

[Bruce68]

Re : Format TextBox

Bonsoir Staple1600

Impeccable ça fonctionne, Merci .
Mais à quoi sert: "CommandButton1.SetFocus" ?

 

[Staple1600]

Re : Format TextBox

Re

Sur mon PC, avec
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "0.00""%""")
End Sub

Il ne se passe rien.

J'ai donc ajouté un commandbutton
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "0.00""%""")
CommandButton1.SetFocus ' et cette ligne
End Sub

et la cela fonctionnait l'affichage de la textbox était modifié

 

[Bruce68]

Re : Format TextBox

Bonjour Staple1600 et le forum
Avec ce code ça fonctionne, le seul prb il faut mettre la virgule pour les décimales ald ., si je met le . pour 5.5 = 0.21%

Private Sub PCent_AfterUpdate()
PCent = Format(PCent, "0.00""%")
End Sub

Bonne journée à tous