VBA Mise en forme 1 caractère * dans fichier excel

[Laliepomm]

Bonjour à tous,

Super novice en macro sur excel (dès que je ne peux plus utiliser ma chère fonction "enregistrement d'une macro"), je cherche à modifier le format d'un caractère, en l'occurrence * et uniquement ce caractère dans mon tableau.
j'ai trouvé une idée de macro mais elle met tous les caractères en forme 😕

Si vous avez une solution...
D'avance merci

Lalie

 

[job75]

Bonjour Laliepomm,

Sub Backup()
Dim c As Range, n%
Application.ScreenUpdating = False
For Each c In [TableauCompétence7]
    n = InStr(c, "*")
    If n Then
        With c.Characters(n, 1).Font
            .Bold = True
            .ColorIndex = 46
            .Size = 30
            .Name = "Benard MT condensed"
        End With
    End If
Next
End Sub

Sub retour()
With [TableauCompétence7].Font
    .Bold = False
    .ColorIndex = xlAutomatic
    .Size = 11
    .Name = "Arial"
End With
End Sub

 

[Laliepomm]

Merci Job75 !!! Exactement ce que je cherchais
il y avait juste un petit bug dans le code pour le .Name = "Bernard MT condensed" il y manquait le "r"

Bonne journée !

 

[job75]

Ah oui, j'avais copié le nom de la police dans la cellule F17...

Du coup l'étoile restait avec 5 branches au lieu de 6.

Notez aussi que s'il y en a plusieurs dans une cellule seule la 1ère est modifiée.