XL 2016 Comment colorier les mots déjà en rouge en bleu d'une colonne

laurent950 à dit:

Bonsoir le Forum,
exemple :
lien utile pour les couleurs : https://forum.excel-pratique.com/viewtopic.php?t=21547

VB:

Sub test()
Dim Plg As Range
Set Plg = Range("B3:B7")
Dim c As Range
For Each c In Plg
    For I = 1 To Len(c.Value)
        If c.Characters(I, 1).Font.ColorIndex = 3 Then
            c.Characters(I, 1).Font.ColorIndex = 5
            c.Characters(I, 1).Font.Bold = True
        End If
        Next I
Next c
End Sub

Cliquez pour agrandir...