Récupèrer valeur décimale dans Textbox

[cathodique]

Bonjour,

J'ai consulté toutes les discussions concernant les textbox en numérique, mais je n'ai trouvé aucune piste.
Voilà, sur ma feuille excel en A1 j'ai une valeur numérique à plusieurs décimales, je voudrai récupérer dans une textbox cette valeur mais à 2 décimales. ex: Range("A1")=1,56798----->Textbox=1,56

merci beaucoup.

Cordialement,

 

[mécano41]

Re : Récupèrer valeur décimale dans Textbox

Bonjour,

Regarde avec ceci :

Textbox1.value= Round(Range("A1").Value,2)

ou si tu veux arrondir par excès ou par défaut :

Textbox1.value= Application.WorksheetFunction.Arrondi.Sup(Range("A1").Value,2)
ou
Textbox1.value= Application.WorksheetFunction.Arrondi.Inf(Range("A1").Value,2)

Cordialement

 

[mécano41]

Re : Récupèrer valeur décimale dans Textbox

Evidemment, en anglais! Désolé

TextBox1.Value = Application.WorksheetFunction.RoundUp(.Range("A1").Value, 2)
TextBox1.Value = Application.WorksheetFunction.RoundDown(.Range("A1").Value, 2)

Cordialement

 

[cathodique]

[Résolu]Re : Récupèrer valeur décimale dans Textbox

Bonjour Mécano41,

Merci pour tout. La célérité, l'efficacité et la qualité. Tes codes fonctionnent très bien, merci encore.

Cordialement,