Format ControlSource d'une TextBox

Hervé

XLDnaute Barbatruc

• 23 Mars 2010

• #2

Re : Format ControlSource d'une TextBox

Bonjour

à essayer :

Code:

Private Sub TextBox1_Enter()
TextBox1 = Format(TextBox1, "##,##0.00")
End Sub

salut

 

Vote positif 0 Vote négatif

T

titymax

XLDnaute Occasionnel

• 23 Mars 2010

• #3

Re : Format ControlSource d'une TextBox

Salut Hervé,

Je ne vois pas comment utiliser cette possibilité, car la TextBox en question se trouve dans une Userform. Lorsque j'appelle cette dernière elle apparait avec la TextBox dans laquelle le nombre à 10 chiffres aprés la virgule s'affiche.

A quel moment et/ou à quel endroit dois je mettre ce code pour que cela fonctionne ?

Te remerciant.

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 23 Mars 2010

• #4

Re : Format ControlSource d'une TextBox

Bonjour Titymax, Hervé

en l'absence d'Hervé, essaye peut être de placer le code dans l'événement "Initialize" de l'usf, si j'ai bien compris... et si le textbox en question est valorisé dès l'ouverture....

Code:

Private Sub UserForm_Initialize()
TextBox1 = Format(TextBox1, "##,##0.00")
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

H

Habitude

XLDnaute Accro

• 23 Mars 2010

• #5

Re : Format ControlSource d'une TextBox

Au lieu d'affecter l'affichage, tu peux affecter la valeur comme ceci.


If IsNumeric(TextBox1) then TextBox1 = Round(TextBox1, 2)

 

Vote positif 0 Vote négatif

T

titymax

XLDnaute Occasionnel

• 23 Mars 2010

• #6

Re : Format ControlSource d'une TextBox

Bonjour Pierrot93,

Super !! ça fonctionne à merveille je te remercie ainsi qu'Hervé bien entendu !

Ce forum c'est vraiment de l'OR en barre !!!!

Bonne AM à tous

A bientôt

 

Vote positif 0 Vote négatif

T

titymax

XLDnaute Occasionnel

• 23 Mars 2010

• #7

Re : Format ControlSource d'une TextBox

Bjr Habitude,

Merci pour cette solution que j'essaierai dès que possible.

Super !!!

Bonne continuation et MERCI

 

Vote positif 0 Vote négatif