Couleur de texte dans zone fusionnée

[paul87]

Bonjour à tous,
Bonjour le Forum,
Dans feuille, j'ai une zone de cellules fusionnée de taille variable, l'affichage du contenu est récupéré dans une TextBox d'un UserForm. Tout fonctionne bien..!!! pour une fois 😉
Seulement, je voudrais que la partie en texte fixe après le STATUS: ClOSED soit affiché en Vert, et CANCELLED / ABORTED soit affiché en rouge.
auriez vous une idée..? Merci par avance à tous

    With .Range(Cells(LgTrav, ColDebut), Cells(LgTrav, ColFin))
        .Interior.ColorIndex = 1
        .Interior.Pattern = xlSolid
        .Font.ColorIndex = 2
         .FormulaR1C1 = TextBox2.Value & "   STATUS:  CLOSED"
          'ou
        '.FormulaR1C1 = TextBox2.Value & "   STATUS:   CANCELLED / ABORTED"
         
    End With

 

[phlaurent55]

Re : Couleur de texte dans zone fusionnée

Bonjour Paul,

un essai en pièce jointe

à+
Philippe

 

[STephane]

Re : Couleur de texte dans zone fusionnée

Philippe, ton fichier est haut en couleur ;-)

comme je ne sais pas ce qui détermine le statut,j'ai juste géré le statut CLOSED

Sub test()
Dim TexteLibelleStatus As String
Dim TexteSaisi As String
Dim l_length As Long
Dim l_start As Long
With ActiveCell
    'With .Range(Cells(LgTrav, ColDebut), Cells(LgTrav, ColFin))
        .Interior.ColorIndex = 1
        .Interior.Pattern = xlSolid
        .Font.ColorIndex = 2
         
         'TexteSaisi = TextBox2.Value
         TexteLibelleStatus = vbTab & "STATUS:" & vbTab
         .Value = TexteSaisi & TexteLibelleStatus & "CLOSED"
         
         l_start = Len(TexteSaisi) + Len(TexteLibelleStatus) + 1
         l_length = Len("CLOSED")
        .Characters(Start:=l_start, Length:=l_length).Font.Color = vbGreen
        
    End With
End Sub

 

[paul87]

Re : Couleur de texte dans zone fusionnée

Merci à toi STephane,..
c'est parfait.!!