Probléme surlignage EXCEL Fermé

Question

Bonjour, 

Alors je vous explique mon souci : Je cherche a surligner une partie d'une cellule qui contient une fonction, pour être plus clair je prend un exemple : 

=concatener("Texte 1 ";si(B1=1;"VRAI";"FAUX");" Texte 2") --> Dans cet exemple je voudrai surligner en rouge uniquement "VRAI" ou "FAUX" et pas le reste des caractéres ( Texte 1 et 2 )

Merci d'avance pour vos réponses

Configuration: Windows XP / Internet Explorer 7.0

MarcFsB · Answer

Le sur lignage en rouge doit-il être fait dans la formule 
ou dans l'affichage du résultat
Marc

Mike-31 · Answer

Salut, 

le résultat issu d'une formule ne peut être mis partiellement en forme manuellement ni par formule, à ma connaissance, uniquement en VBA 
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Mike-31 · Answer

Re, 

Clic droit sur l'onglet de la feuille concernée/Visualiser le code 
coller ce code dans le feuille blanche, dès que la valeur 1 ou 2 sera saisie dans la colonne B sur la même ligne colonne D s'inscrira Texte 1 VRAI Texte 2 
ou Texte 1 FAUX Texte 2
 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As String
Dim place As Byte
Dim i As Byte
If Target.Column <> 2 Then Exit Sub
If Target = 1 Then
    t = "Texte 1 " & "VRAI" & " Texte 2"
    place = InStr(3, t, "VRAI")
    With Target.Offset(0, 2)
        .Value = t
            For i = place To place + Len("VRAI")
            .Characters(i, 1).Font.Underline = xlUnderlineStyleSingle
        Next i
    End With
    Else
    t = "Texte 1 " & "FAUX" & " Texte 2"
    place = InStr(3, t, "FAUX")
    With Target.Offset(0, 2)
        .Value = t
            For i = place To place + Len("FAUX")
            .Characters(i, 1).Font.Underline = xlUnderlineStyleSingle
        Next i
    End With
    End If
End Sub


Je regarde pour un surlignage en couleur 
A+ 
Mike-31 

Une période d'échec est un moment rêvé pour semer les graines du savoir.

eriiic · Answer

Bonjour, 

sur quelle version d'excel ? 
Sur 2003 tu peux changer la couleur de la police mais pas le fond d'une partie de chaine. 
De plus cette chaine doit être saisie et non pas être le résultat d'une formule. 

eric

Mike-31 · Answer

Re,  

Voila le code avec VRAI ou FAUX souligné en rouge il est possible encore de varier la couleur et ajouter du gras  

Private Sub Worksheet_Change(ByVal Target As Range)  
Dim t As String  
Dim place As Byte  
Dim i As Byte  
If Target.Column <> 2 Then Exit Sub  
If Target = 1 Then  
    t = "Texte 1 " & "VRAI" & " Texte 2"  
    place = InStr(3, t, "VRAI")  
    With Target.Offset(0, 2)  
        .Value = t  
            For i = place To place + Len("VRAI")  
            .Characters(i, 1).Font.ColorIndex = 3  
            .Characters(i, 1).Font.Underline = xlUnderlineStyleSingle  
        Next i  
    End With  
    Else  
    t = "Texte 1 " & "FAUX" & " Texte 2"  
    place = InStr(3, t, "FAUX")  
    With Target.Offset(0, 2)  
        .Value = t  
             For i = place To place + Len("FAUX")  
            .Characters(i, 1).Font.ColorIndex = 3  
            .Characters(i, 1).Font.Underline = xlUnderlineStyleSingle  
        Next i  
    End With  
    End If  
End Sub  

A+  
Mike-31  

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Raymond PENTIER · Answer

Alors là, Plato, tu l'as bien cherché !

Probléme surlignage EXCEL

6 réponses

Discussions similaires