Probléme surlignage EXCEL

Excel

plato -
Raymond PENTIER Messages postés 58992 Date d'inscription Statut Contributeur Dernière intervention - 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

Afficher la suite

A voir également:

Surligner sur excel
Liste déroulante excel - Guide
Texte en surbrillance sous excel ✓ - Forum Excel
Word et excel gratuit - Guide
Comment trier par ordre alphabétique sur excel - Guide
Comment calculer la moyenne sur excel - Guide

6 réponses

Réponse 1 / 6

Mike-31 Messages postés 18407 Date d'inscription Statut Contributeur Dernière intervention 5 135

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

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 18407 Date d'inscription Statut Contributeur Dernière intervention 5 135

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 18407 Date d'inscription Statut Contributeur Dernière intervention 5 135

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

Référence de cellule variable formule excel

restriction de valeur sur Excel

excel/date/sans week-end

Graphique Excel : ignorer les valeurs nulles

Diagramme d'ischikawa vierge et gratuit

Regrouper plusieurs fichier excel en un seul

Votre réponse

Discussions similaires