XL 2013 Format (Nombre) Text dans Shape /.

[Halffy]

Bonjour à tous,
Je suis actuellement confronté à un problème de format (Nombre) de texte dans un(e) Shape; en effet le chiffre que donne la Shape est au format nombre numérique, et je le voudrais au format Monétaire €. Une âme charitable aurait-elle un peu de temps pour me venir en aide afin d'obtenir le résultat escompté?
Un fichier est fourni afin de mieux cerner la problématique / Avec tous mes remerciements pour l'aide apportée.
Halffy /.

 

[Hasco]

Bonsoir,

With ActiveSheet.Shapes("Epargne")
            .TextFrame.Characters.Text = Format(c.Offset(, 2), "0.00 \€")
            .TextFrame.Characters.Font.Name = "Garamond"
            .TextFrame.Characters.Font.Size = 16
            .TextFrame.Characters.Font.Bold = True
            .TextFrame.Characters.Font.Italic = True
        End With

bonne soirée

 

[Halffy]

Bonsoir Roblochon,
Un Grand Merci... j'ai cherché durant au moins 3h, et impossible de trouver la bonne commande
Pour un XLDnaute Occasionnel: Pas mal du tout, Félicitations, et encore Merci !
Bonne soirée à tous.
Sujet résolu /.