Bonjour à toutes et à tous,
J'ai une code qui créé une en-tête sur deux lignes. Je souhaiterais que la seconde ligne VEntete1 soit en rouge.
Merci de votre aide
@+
J'ai une code qui créé une en-tête sur deux lignes. Je souhaiterais que la seconde ligne VEntete1 soit en rouge.
Merci de votre aide
@+
Code:
With ActiveSheet.PageSetup
VEntete = ActiveSheet.Cells(4, 3).Value
VEntete1 = ActiveSheet.Cells(5, 3).Value & Cells(5, 4).Value & _
" " & Cells(5, 7).Value & " " & Cells(5, 8).Value
.LeftHeader = "&""BOOK ANTIQUA,Gras italique""&21" & VEntete & Chr(10) & _
"&""BOOK ANTIQUA,Gras italique""&15" & VEntete1
End With