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