Autres mise en forme partielle de cellule avec format personnalisé

[un internaute]

Bonjour le forum
Dans une cellule quelconque (dans mon programme cellule D18) il y a "Montant 1er Trimestre Fonds Travaux" je veux mettre en rouge 1er Trimestre avec un format personnalisé ;;;@*->
Je crois que c'est impossible mais il y a tellement d'as sur le forum!!!
Ça passe en standard mais il faut que je "joue" avec les pointillés et ça ne butte pas toujours sur le cellule de droite
Merci pour vos éventuels retours

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @un internaute
Sans macro instruction je ne vois pas comment appliquer une mise en forme à une partie seulement d'un texte ...
Avec une macro :

Const Chaîne As String = "1er Trimestre"
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address = "$D$18" And InStr(Target, Chaîne) Then
          Target.Characters(InStr(Target, Chaîne), Len(Chaîne)).Font.Color = RGB(255, 0, 0)
     Else
          Target.Font.ColorIndex = xlAutomatic
     End If
End Sub

voir fichier joint

 

[job75]

Bonsoir à tous,

Le format personnalisé semble avoir le même effet qu'une formule : il n'est pas possible de faire des mises en forme sur des parties du texte.

A+