2 formats de couleurs pour le texte dans une cellule

[fb62840]

Bonjour,

je voudrais par macro appliquer 2 mises en forme dans les cellules contenant un caractère "#"

Exemple
plusieurs cellules peuvent contenir (ou non) le caractère # sur la feuille

Je souhaite que lorsque la cellule contient ce caractère, alors ce caractère (et uniquement celui là) soit en rouge, les autres doivent rester en noir.

Merci pour votre aide,

Fabrice

 

[mromain]

Re : 2 formats de couleurs pour le texte dans une cellule

Bonjour Fabrice,


Voici un code à adapter :

Sub Test()
    'colorier les dièse de la zone de cellule A1:A10
    ColorerDiese Range("A1:A10")
End Sub



Sub ColorerDiese(zoneCellules As Range)
Dim laCell As Range, iC As Long
    For Each laCell In zoneCellules.Cells
        If InStr(laCell.Text, "#") <> 0 Then
            For iC = 1 To laCell.Characters.Count
                If laCell.Characters(iC, 1).Text = "#" Then laCell.Characters(iC, 1).Font.Color = RGB(255, 0, 0)
            Next iC
        End If
    Next laCell
End Sub

a+