Bonjour le forum,
Je me tourne encore une fois vers vous pour essayer d'écrire un code qui donnera un format différent à chaque ligne contenue dans une cellule.
j'ai des cellules dans lesquelles j'ai fait des retours lignes (Alt+Entrée) ou en activant les retours lignes automatiques.
Je voudrais donner une format différent à chaque ligne. Ce code met la première ligne en rouge et en gras et les lignes suivantes en bleu.
Est il possible d'ajouter un format pour la troisième voire la quatrième ligne
Sub Modif_Lig2()
Dim c As Range, i As Long
For Each c In [C3:C10]
c.Font.Bold = True
c.Font.ColorIndex = 3
i = InStr(c.Value, vbLf)
c.Characters(i + 1).Font.ColorIndex = 5
c.Characters(i + 1).Font.FontStyle = "Normal"
Next c
End Sub
je remercie tous ceux qui prennent le temps de répondre à nos demandes
Cordialement
Coco
Je me tourne encore une fois vers vous pour essayer d'écrire un code qui donnera un format différent à chaque ligne contenue dans une cellule.
j'ai des cellules dans lesquelles j'ai fait des retours lignes (Alt+Entrée) ou en activant les retours lignes automatiques.
Je voudrais donner une format différent à chaque ligne. Ce code met la première ligne en rouge et en gras et les lignes suivantes en bleu.
Est il possible d'ajouter un format pour la troisième voire la quatrième ligne
Sub Modif_Lig2()
Dim c As Range, i As Long
For Each c In [C3:C10]
c.Font.Bold = True
c.Font.ColorIndex = 3
i = InStr(c.Value, vbLf)
c.Characters(i + 1).Font.ColorIndex = 5
c.Characters(i + 1).Font.FontStyle = "Normal"
Next c
End Sub
je remercie tous ceux qui prennent le temps de répondre à nos demandes
Cordialement
Coco
Dernière édition: