XL 2013 Format (Nombre) Text dans Shape /.

Halffy

XLDnaute Occasionnel
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 /.
 

Pièces jointes

  • €uroFrancs 2019 Essai.xlsm
    48.5 KB · Affichages: 5

Roblochon

XLDnaute Barbatruc
Bonsoir,

VB:
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

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