Format numérique à Textbox

[Cougar]

Bonjour le forum,

De quelle manière je peux obliger un Textbox à s'afficher en format numérique. Il n'y a rien dans les propriétés.

Merci

 

[Eric C]

Bonjour le forum
Bonjour cougar


Une variante :

If Not IsNumeric(TextBox1) Then Exit Sub

Bonne journée à toutes & à tous

 

[JCA06]

Bonjour Cougar, bonjour Eric et bonjour le forum !

Si c'est juste un problème d'affichage, voici un exemple :

TextBox1.Value = Format(variable, '# ##0.00')

Ceci-dit, il faut peut-être tester la variable en amont avec le IsNumeric dont te parle Eric.

Bonne journée.

 

[Cougar]

Bonjour Eric C, bonjour JCA06 et bonjour le forum,

Excusez-moi, j'ai mal formulé ma question.

Dans un tableau ma colonne est en format Monétaire. Lorsque j'ouvre mon userform, mon textbox5 va chercher la valeur qui se trouve dans la cellule (TextBox5 = tabtemp(L, 11)).

Donc, est-ce que je dois donner le format monétaire avant mon Textbox5 car j'ai seulement la valeur numérique (ex. : 35).

Si oui, comment faire.

Merci

 

[Eric C]

Bonjour le forum
Bonjour Cougar, bonjour JACA06

Une approche :

Private Sub UserForm_Initialize()
TextBox1 = Format(Range('A1'), '# ###.00 €')
End Sub