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

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

Exemple pratique

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

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