Discussion :

[CRC]

Bonjour à tous,

Je voudrais savoir s'il est possible d'appliquer plusieurs couleurs à différentes parties d'un texte d'une cellule à l'aide de vba ?

En effet, l'instruction "WorkSheet(1).Cells(1, 1).Font.ColorIndex = vbRed"
applique la couleur à tout le texte de la cellule.

Alors qu'en manuel, on peut sélectionner qu'une partie du texte de la cellule pour appliquer une autre couleur.

Merci d'avance pour votre aide.

[Jean-Philippe André]

salut,
si tu y arrives en manuel, utilise le macro recorder, tu trouveras bien facilement le code équivalent vba

[CRC]

OK merci.

C'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With ActiveCell.Characters(Start:=1, Length:=7).Font
        .Name = "Arial"
        .FontStyle = "Normal"
        .Size = 10
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16776961
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With