format personnalisé dans extbox

[nrdz83]

Bonjour à tous,

voila j'utilise ce code dans une textbox

Txt_2 = Format(Replace(Txt_2, " m", ""), "# ### m")

afin de placer m derrière les chiffres saisi ça fonctionne impecable.

Ce que je n'arrive pas c'est à mettre au format deux décimal après la virgule (exemple 25,12 m)

Voila par aavnce merci pour votre aide

amitiés

 

[Papou-net]

Re : format personnalisé dans extbox

Bonsoir nrdz83,

Comme ceci peut-être :

Txt_2 = Format(Replace(Txt_2, " m", ""), "# ###.00 m")

Cordialement.

 

[nrdz83]

Re : format personnalisé dans extbox

Bonsoir et merci pour l'aide désolé mais ça fonctionne pas

 

[Papou-net]

Re : format personnalisé dans extbox

RE :

Peux-tu préciser la valeur que tu saisis dans ta zone de texte ?

Cordialement.

 

[nrdz83]

Re : format personnalisé dans extbox

je saisie par exemple 12.25 et je voudrais que ça m'affiche 12,25 m

merci pour ton aide

 

[Papou-net]

Re : format personnalisé dans extbox

RE :

Alors voici, je pense, la solution :

TextBox1 = Format(CDbl(Replace(TextBox1.Value, ".", ",")), "# ###.00 m")
Bonne fin de soirée.

Cordialement.

 

[nrdz83]

Re : format personnalisé dans extbox

Bonjour à tous et à toi papou net
desolé mais ça ne fonctionne pas non plus ta proposition

désolé également pour la réponse tardive mais j'étais occupé au travail

merci d'avance pour votre aide

 

[laetitia90]

Re : format personnalisé dans extbox

bonjour tous🙂🙂

essai comme cela

TextBox1 = Replace(Format(TextBox1, "# ###.00 m"), ".", ",")

 

[nrdz83]

Re : format personnalisé dans extbox

Bonjour à tous j'ai trouvé oups laeticia90 désolé j'avais pas vu ta réponse

j'ai fait ce code à la saisie
.Cells(DerLig, 4).Value = Format(Txt_3, "#,##0.00"" m""")

en fait je me suis servi de l'enregistreur de macro

mais je note ta proposition amitiés
et bon dimanche à tous