VBA-Excel Changer la police
Résolu
Bonjour,
Voici mon problème :
Par macro VBA, j'écrit du texte dans une cellule en inserant un retour à la ligne.
par exemple :
Nom
Prénom
Excele me met du calibri taille 11 par deffaut.
Peux ton gérer la police du "nom et du prénom" séparément par macro ?
(j'espère être claire ^^)
Voici mon problème :
Par macro VBA, j'écrit du texte dans une cellule en inserant un retour à la ligne.
par exemple :
Nom
Prénom
Excele me met du calibri taille 11 par deffaut.
Peux ton gérer la police du "nom et du prénom" séparément par macro ?
(j'espère être claire ^^)
21 réponses
Résumé de la discussion
Le problème porte sur la mise en forme partielle d'un texte saisi dans une cellule Excel avec un retour à la ligne, afin de distinguer la police du nom et du prénom. Des méthodes existent : soit on calcule les positions des portions texte et on applique .Characters(Start, Length).Font, soit on écrit le texte puis on ajuste la police via une macro. La solution la plus pratique prévoit d'utiliser Chr(10) pour le saut de ligne et, selon le nom et le prénom, d'appliquer les formats sur des segments Start/Length différents. En alternative, on peut écrire le nom et le prénom séparément puis fusionner les styles via un script qui colore ou change la police sur chaque segment.
-
Bonjour,
Changement police, taille, couleur texte dans la meme cellule:
exemple:
Sub test()
With Worksheets("feuil1").Range("B1")
'texte cellule
.Value = "New Title"
'Caracteres 1 longueur 4: New_
With .Characters(Start:=1, Length:=4).Font
.Name = "Calibri"
.FontStyle = "Normal"
.Size = 11
End With
'Caracteres 5 longueur 5: Title
With .Characters(Start:=5, Length:=5).Font
.Name = "arial black"
.FontStyle = "Gras italique"
.Size = 28
.Color = -16776961
End With
End With
End Sub
