Bonjour le forum
Comment changer la taille le style et la police, je voudrais du Batang en gras et en 16
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim hts
Dim rbm
hts = Range("O4").Text
rbm = Range("R6").value
ActiveSheet.PageSetup.RightFooter = hts
ActiveSheet.PageSetup.CenterFooter = rbm
End Sub
Merci
Comment changer la taille le style et la police, je voudrais du Batang en gras et en 16
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim hts
Dim rbm
hts = Range("O4").Text
rbm = Range("R6").value
ActiveSheet.PageSetup.RightFooter = hts
ActiveSheet.PageSetup.CenterFooter = rbm
End Sub
Merci