XL 2016 Format dans formule / phrase

[Collins]

Bonjour à tous

Est il possible de mettre un format couleur sur un montant dans une formule / phrase ?
Voir explication sur fichier joint
Je vous remercie

 

[Simply]

bonsoir

 

[crocrocro]

Bonjour,
je ne vois pas sans passer par du VBA dont voici le code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ObfFont As Object
Dim TexteAvant As String, TexteAprès As String
    If Not Intersect(Target, Range("C3")) Is Nothing Then
        Application.EnableEvents = False
        TexteAvant = "Reporter ce montant "
        TexteAprès = " correspondant à la dernière vente"
        Range("C5") = TexteAvant & Format(Range("C3").Value, "# ##0.00 €") & TexteAprès
        Set ObfFont = Range("C5").Characters(Len(TexteAvant), Len(Range("C5")) - Len(TexteAvant) - Len(TexteAprès) + 1).Font
        ObfFont.Color = vbRed
        ObfFont.Bold = True
        Set ObfFont = Nothing
        Application.EnableEvents = True
    End If
End Sub

et son application pour 2 montants saisis en C3