Mise en forme partie de texte Résolu

Question

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

smartway14 · Answer

bonjour;
utulisez les macros

sanchis81 · Answer

C'est à dire.....

Raymond PENTIER · Answer

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 ...

michel_m · Answer

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

michel_m · Answer

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

sanchis81 · Answer

Merci Michel! c'est exactement ce que je voulais! 

c'est vrai que ça faisait longtemps ....

sanchis81 · Answer

Merci quand même!

Mise en forme partie de texte

7 réponses

Discussions similaires

Newsletters