TextFrame.Characters.text et format :(

[Carnage029]

Bonjour à tous, dans une feuille, j'ai ajouté des textframe qui se remplissent automatiquement (enfin après un appel de macro de mise à jour), cependant, ils contiennent des nombres,

Le problème est que j'ai réussi à remplir mes textframe avec des

ActiveSheet.Shapes("ZoneTexte 8").TextFrame.Characters.Text = Sheets("system").Range("S23").Value

Cependant, ma zone de texte ne conserve pas la mise en page (à savoir les séparateurs de milliers)

Auriez vous une idée ?

Merci à tous 🙂

 

[Dull]

Re : TextFrame.Characters.text et format 🙁

Salut Carnage029, le Furum

A tester

ActiveSheet.Shapes("ZoneTexte 8").TextFrame.Characters.Text = Sheets("system").Format(Range("S23").Value, "# ###.00")

Bonne Journée

 

[Carnage029]

Re : TextFrame.Characters.text et format 🙁

Et non 🙁 il me sort ça comme erreur


Cet objet ne gère pas cette propriété ou méthode (erreur 438)

 

[francedemo]

Re : TextFrame.Characters.text et format 🙁

bonjour à tous,

et :

ActiveSheet.Shapes("ZoneTexte 8").TextFrame.Characters.Text = Format(Sheets("system").Range("S23").Value, "# ###.00")

?
à +

 

[Carnage029]

Re : TextFrame.Characters.text et format 🙁

Problème résolu :

Solution

montantE = Sheets("system").Range("S15").Value
ActiveSheet.Shapes("ZoneTexte 16").TextFrame.Characters.Text = Format(montantE, "#,###.00")


EDIT : Plus rapide que l'éclair, francedemo 🙂