Mise en forme texte (gras, italique…) via formule

Bonjour,

Est-il sous Excel possible de mettre en forme du texte au sein d'une formule?

Exemple:

je veux insérer ce texte dans une cellule sous un tableau:

"Le résultat est : 90,00 € de bénéfice"

90 étant le résultat d'un calcul issu des données encodées dans ledit tableau

c'est pourquoi je veux le mettre en exergue.

Merci.

Bonjour Bens

A ma connaissance, ce n'est pas possible au sein d'une formule

A+

bonjour

je confirme ;et c'est pas faute d'avoir cherché (tout y a passé )

il ne te reste plus qu'a inserer une colone et la tu pouuras a chaque cel 90 et benef choisir le format et........eventuellement un format conditionnel ( pour faire chouette)

cordialement

Bonjour

Ta demande initiame était gras, et j'ai cherché dessus.

Avec un Code dans un Module

Sub Valeur_Gras()
Dim y As String, z As String
Range("B3").Select
' compte le nombre de caractères en B3
y = Len(Range("B3"))
'on écrit la formule en D17
    Range("D17").Select
    ActiveCell.FormulaR1C1 = _
        "=""Le résultat est : ""&TEXT(R[-14]C[-2],""# ##0,00 €"")&"" de bénéfice"""
' on remplace la formule par sa valeur texte
    Range("D17").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
' on compte le nombre de caractères en D17
 z = Len(ActiveCell)
' on en déduit le nombre de caractères à mettre en gras, la partie non gras étant fixe
    With ActiveCell.Characters(Start:=18, Length:=z - 29).Font
    .FontStyle = "Gras"
    End With
End Sub

Cordialement

Merci à tous et en particulier à Amadéus pour son travail.

Je vais étudier cela pour l'adapter à différentes situations.

Petites questions déjà:

1/ si je veux du gras italique, quelle est la syntaxe?

2/ ici le chiffre 177000,12 contient 9 caractères

si mon résultat en contient 5 (90,00 par ex), est-il possible d'automatiser l'adaptation?

ou dois-je jouer avec des astuces (genre englober les espaces avant et après dans la partie en gras)

3/ est-il possible via une méthode simple de mettre dans la même formule d'autres caractères (non variables) en gras?

exemple: "Merci de verser la somme de 90,00 € [variable] sur le compte bancaire 000-1234567-89 [non variable]"

Bonjour

Essaye en utilisant ce code :

Sub FormatPartieCellule()
Dim motdebut As String, montant As String, motfin As String, compte As String, a As String, b As String, c As String, d As String

motdebut = "Merci de verser la somme de : "
montant = Format(Range("B3"), "#,##0.00 €")
motfin = "  sur le compte bancaire "
compte = "000-1234567-89"

'on écrit la phrase en D17
Range("D17") = motdebut & montant & motfin & compte

' on compte le nombre de caractères
a = Len(motdebut)
b = Len(montant)
c = Len(compte)
d = Len(Range("D17"))

' on met le montant dans les formats désirés (à partir de a, le nombre de caractères de b)
With Range("D17").Characters(Start:=a, Length:=b + 1).Font
    .Bold = True 'gras
    .ColorIndex = 3 'rouge
    .Italic = True 'italique
    .Underline = xlUnderlineStyleSingle 'souligné
End With

'on met le compte en gras
Range("D17").Characters(Start:=d - c + 1, Length:=c).Font.Bold = True

End Sub

Amicalement

Nad

merci pour le partage de vos connaissances!

J'analyse cela pour l'exploiter et reviens vers vous confirmer.

Benoit