Probléme surlignage EXCEL

Fermé

Excel

plato - 26 août 2010 à 14:06
Raymond PENTIER Messages postés 58393 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 27 août 2010 à 01:19

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

A voir également:

Surligner texte excel
Formule excel si contient texte alors texte ✓ - Forum Excel
Liste déroulante excel - Guide
Excel cellule couleur si condition texte - Guide
Formule excel - Guide
Excel si cellule contient texte alors ✓ - Forum Excel

6 réponses

Réponse 1 / 6

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 26/08/2010 à 15:29

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.

Plato
26 août 2010 à 18:44

Ok, merci Mike et par VBA je connais trés peu, est-ce que quelq'un a une solution ?

Réponse 2 / 6

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 26/08/2010 à 22:05

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.

Réponse 4 / 6

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 26/08/2010 à 22:26

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.

Discussions similaires

texte en surbrillance sous excel

Surligner du texte dans PowerPoint 2010

surligner

Comment enlever surbrillance grise (Word 07)

Enlever surlignage d'un texte

Comment supprimer le surlignage sur Word ?

Discussions similaires

Newsletters