Mise en forme partie de texte [Résolu/Fermé]

Signaler
Messages postés
134
Date d'inscription
mardi 17 février 2009
Statut
Membre
Dernière intervention
2 octobre 2013
-
Messages postés
134
Date d'inscription
mardi 17 février 2009
Statut
Membre
Dernière intervention
2 octobre 2013
-
Bonjour à tous,


est-il possible de mettre en forme certains mots dans un texte d'une cellule excel?

par exemple: SI je trouve "Rouge" dans cellule alors souligner Rouge

Merci

Sanchis81

7 réponses

Messages postés
822
Date d'inscription
mercredi 15 octobre 2008
Statut
Membre
Dernière intervention
8 octobre 2011
177
bonjour;
utulisez les macros
Messages postés
134
Date d'inscription
mardi 17 février 2009
Statut
Membre
Dernière intervention
2 octobre 2013
10
C'est à dire.....
Messages postés
54288
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
23 juillet 2021
16 269
Ta question n'est pas précise :
Tu veux pouvoir souligner manuellement, ou tu voudrais que ça se fasse automatiquement ?
Dans ce dernier cas il faudrait effectivement écrire une macro à l'aide du langage de programmation VBA ...
Messages postés
16491
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
21 juillet 2021
3 198
Bonjour

Coucou Sanchis, y'avait longtemps, pas vrai ?

Cette macro te met en rouge gras le texte écrit en A1 (à adapter): tu sélectionne la zone où tu veux traiter (elle peut être discontinue) et tu lances la macro (outils-macros-macros)

Sub colorier_mot()
Dim cellule As Range
Dim mot As String
Dim nbre As Byte, cptr As Byte, debut As Byte

mot = Range("A1")
nbre = Len(mot)

Application.ScreenUpdating = False
For Each cellule In Selection
    debut = InStr(cellule, mot)
    If debut > 0 Then
        With cellule.Characters(debut, nbre).Font
            .ColorIndex = 3
            .Bold = True
        End With
    End If
Next

End Sub
Messages postés
134
Date d'inscription
mardi 17 février 2009
Statut
Membre
Dernière intervention
2 octobre 2013
10
Rebonjour Michel,

j'avais fait des essais sur certaines cellules où j'avais inséré du texte et ça marche parfaitement.

Par contre si le contenu de la cellule est le résultat d'une fonction (ici CONCATENER A1 et B1), la macro souligne l'ensemble du texte et non plus les mots recherchés.

Aurais-tu une solution?

Merci michel
Messages postés
16491
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
21 juillet 2021
3 198 >
Messages postés
134
Date d'inscription
mardi 17 février 2009
Statut
Membre
Dernière intervention
2 octobre 2013

bonjour

ben, après plusieurs expés j'vois pas
désolé
Messages postés
16491
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
21 juillet 2021
3 198
Re,
Comme c'était à peu près le m^me problème que Flo ce matin qui demandait en Rouge gras, j'ai pompé sans me souvenir que tu voulais souligner

cellule.Characters(debut, nbre).Font.Underline = xlUnderlineStyleSingle

remplace
With cellule.Characters(debut, nbre).Font
.ColorIndex = 3
.Bold = True
End With

Messages postés
134
Date d'inscription
mardi 17 février 2009
Statut
Membre
Dernière intervention
2 octobre 2013
10
Merci Michel! c'est exactement ce que je voulais!

c'est vrai que ça faisait longtemps ....
Messages postés
134
Date d'inscription
mardi 17 février 2009
Statut
Membre
Dernière intervention
2 octobre 2013
10
Merci quand même!