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

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
        tabContenu = Split(contenu, " ")
        
        'Longueur de la partie 1
        longueurPartie1 = Len(tabContenu(0))
        
        'Longueur de la partie 2
        longueurPartie2 = Len(tabContenu(1))
        
        'Partie 1 en ITALIQUE
        Cells(ligne, 1).Characters(1, longueurPartie1).Font.Italic = True
        
        'Partie 2 en GRAS
        Cells(ligne, 1).Characters(longueurPartie1 + 2, longueurPartie2).Font.Bold = True

    Next

End Sub