XL 2016 [RESOLU]Format monétaire + texte

  • Initiateur de la discussion Initiateur de la discussion louatt
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

louatt

XLDnaute Junior
Bonjour à tous,

j'utilise la formule ci-dessous pour associer du texte à une formule somme. Est-il possible de modifier ce code pour afficher le résultat de la somme en format monétaire français ? (000, 00 €)

Par avance je vous remerce.

Cordialement.
VB:
="SOMME TOTALE: "&SOMME(E2:E28)
 
Dernière petite question si je souhaite faire afficher en rouge uniquement le résultat monétaire comment dois-je mettre mon code?
J'ai essayé le code ci-dessous mais ça ne fonctionne pas
VB:
"SOMME TOTALE :" ;[Rouge]- 0,00

par avance merci
 
Bonjour louatt, jmfmarques, Modeste geedee,

Si l'on veut colorer partiellement le texte du résultat il faut du VBA, voyez le fichier joint :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With [E29] 'à adapter
    .Value = "SOMME TOTALE : " & Format([SUM(IF(ISNUMBER(E2:E28),E2:E28))], "#,##0.00 €") 'plage à adapter
    .Characters(1, 15).Font.ColorIndex = xlAutomatic
    .Characters(16).Font.ColorIndex = 3 'police rouge
End With
Application.EnableEvents = True
End Sub
La macro se déclenche quand on valide ou modifie une cellule quelconque.

Notez que le calcul de la somme est matriciel pour éviter les valeurs d'erreur.

A+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Bug dans export TXT
Réponses
6
Affichages
521
Réponses
12
Affichages
1 K
Retour