Déterminer la police en VBA

[VE2LY]

Bonjour le forum

Une question très simple mais en VBA je débute.

J'ai trouvé un post de Celeda ou elle verrouille un pied de page :

---------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftFooter = "Non Non pas touche !! - Celeda from XLD "
End With
End Sub
---------

Comment ajouter une police et grosseur de caractère ex: ARIAL 8

Merci a l'avance. Ce forum est une mine d'or !

Yves

 

[Mytå]

Re : Déterminer la police en VBA

Salut VE2LY

A adapter

With ActiveSheet.PageSetup
.CenterFooter = "&""Arial,Gras italique""&12&F"
End With
ActiveWindow.SelectedSheets.PrintPreview

Mytå

 

[JYLL]

Re : Déterminer la police en VBA

Bonsoir VE2LY et le forum,

Voici un petit code pour changer la police et la taille.

Sub Macro1()
Range("C1") = "essai de police"
Range("c1").Select
With Selection.Font
.Name = "Dauphin"
.Size = 14
End With
End Sub

Bon test amicalement

Jean-Yves

Ps Bonsoir Mytå, pas vu arriver la réponse

 

[VE2LY]

Re : Déterminer la police en VBA

Re Bonjour Mytå

Je n'ai pas réussi du premier coup a faire fonctionner ton code mais a force de d'essai j'ai réussi (hasard?). La piste étais bonne.Voici ce que j y ai mis.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.CenterFooter = "&8" & "Le texte désiré"
End With
End Sub

-------

Merci aussi Jean-Yves, ça fonctionne aussi.

Yves