Vous avez apprécié ?
Partagez ;-)

Astuce VBA : mise en forme de caractères dans une cellule

Pour modifier la mise en forme de certains caractères, utilisez Characters :

Range("A1").Characters(NO_DEPART, NB_DE_CARACTERES)

Exemple pratique

depart - mise en forme caracteres

Dans cet exemple, la macro passera les 2-3 premiers caractères en italique et le nom de la ville en gras :

objectif - mise en forme caracteres

La macro en détails :

Sub test()

    For ligne = 1 To 12
   
        'Contenu de la cellule
        contenu = Cells(ligne, 1)
       
        'Contenu divisé en un tableau de 3 parties
        tab_contenu = Split(contenu, " ")
       
        'Longueur de la partie 1
        longueur_partie_1 = Len(tab_contenu(0))
       
        'Longueur de la partie 2
        longueur_partie_2 = Len(tab_contenu(1))
       
        'Partie 1 en ITALIQUE
        Cells(ligne, 1).Characters(1, longueur_partie_1).Font.Italic = True
       
        'Partie 2 en GRAS
        Cells(ligne, 1).Characters(longueur_partie_1 + 2, longueur_partie_2).Font.Bold = True

    Next

End Sub