Assignation de police en pied de page macros excel
Saratum
Messages postés21Date d'inscriptionlundi 23 mars 2009StatutMembreDernière intervention 1 avril 2009
-
24 mars 2009 à 09:53
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 2010
-
25 mars 2009 à 00:57
à coup d'essais et erreur, j'en suis venu à ces lignes de codes pour faire incrémenter une cellule et l'envoyer en pied de page....
Je ne trouve pas comment assigner la police approprié au pied de page.... Besoin d'aide svp
a300 = 5000
a301= =("PA: ")&a300 ce qui affiche PA: 5000 dans la cellule a301
début du code qui marche mais sans la police que je veux....:
' incrémente le numéro de contrat et le place en pied de page
Sheets("P.A.").Select
Dim iMyValue As Long
Dim iMyValue2 As Long
iMyValue = Range("a300").Value
iMyValue2 = iMyValue + 1
Range("a300").Value = iMyValue2
Sheets("P.A.").Select
With ActiveSheet.PageSetup
.RightFooter = Range("a301").Value
End With
ce que j'ai essayer à force d'enregistrer la macro et essais et erreur.... j'ai une erreur de signallé ce qui est en gras...
Selection.Font.Bold = True
Selection.Font.Italic = True
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0.349986266670736
End With
With ActiveSheet.PageSetup
.RightFooter = "&""-,Gras italique""&18&K01+034 Range("a301").Value"
End With
Saratum
Messages postés21Date d'inscriptionlundi 23 mars 2009StatutMembreDernière intervention 1 avril 2009 24 mars 2009 à 23:19
donc pour vous situer, je vais vous donner mon code... j'ai chercher pas mal pour avoir tout ça, et j'espère que ça aidera d'autre... c pas full estétique, mais je ne me prétend pas pragrammeur..... lol
Sub CLR_FORM()
'
' Touche de raccourci du clavier: Ctrl+i
' CLR_FORM Macro
' incrémente le numéro de contrat et le place en pied de page
Sheets("P.A.").Select
Dim iMyValue As Long
Dim iMyValue2 As Long
iMyValue = Range("a300").Value
iMyValue2 = iMyValue + 1
Range("a300").Value = iMyValue2
Sheets("P.A.").Select
With ActiveSheet.PageSetup
.RightFooter = Range("a301").Value
End With
' Sheets("IMMEUBLE").Select
' Range("L3").Value = Range("a301").Value
' Sheets("Analyse d'Invest").Select
' Range("F2").Value = Range("a301").Value
' Enregistre nouveau nom de fichier en le nomant selon le contenu de immeuble!b300
Dim titre As String
Sheets("IMMEUBLE").Select
titre = ActiveSheet.Range("B300").Value
ActiveWorkbook.SaveAs Filename:=("C:\Documents and Settings\Pat\My Documents\Remax\fiches client\Alain Pierre\Prospects" & titre & ".xlsm"), FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
' Sauvegarde le fichier nettoyé dans fichier template
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Pat\My Documents\Remax\commercial\Immeubles à revenus TEMPLATE.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Mon problême est essenciellement dans les lignes affichées en caractère gras, et je crois que la solution des trois deux problèmes se ressemble pas mal....
1 = Je ne suis pas capable de faire afficher le .rightfooter en calibri gras italique 16...
2 = les renvois à
' Sheets("IMMEUBLE").Select
' Range("L3").Value = Range("a301").Value
' Sheets("Analyse d'Invest").Select
' Range("F2").Value = Range("a301").Value
n'afficher rien... (je sais qu'ils sont en commentaire en ce moment, je laisse ainsi en attendant de trouver.... )
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 20101 25 mars 2009 à 00:57
Salut
Pour le pied de page, la syntaxe est:
With ActiveSheet.PageSetup
.RightFooter = "&""-,Gras italique""&18&K01+034" & Range("a1").Value
End With
dans ton code genre:
Range("G67:K73").Select
Selection.ClearContents
tu peux faire l'économie en écrivant
Range("G67:K73").ClearContents
.............. etc ...............