En tete et pied de page

nat54

XLDnaute Barbatruc

• 24 Octobre 2006

• #16

Re : En tete et pied de page

Merci j'avais trouvé via le glisser/déposer dans "personnaliser"
En fait je l'appelerais via F8

le mieux en fait serait :
- appel automatique de la macro quand changement du mois dans la cellule mois
c'est faisable ?
via selection change ou un truc comme ca ?

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 24 Octobre 2006

• #17

Re : En tete et pied de page

re nat
ta cellule ( I10) mois ne peut pas tout simplement etre =Aujourdhui() au format "mmmm" ce qui te donne "Octobre" ?
E et F

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 24 Octobre 2006

• #18

Re : En tete et pied de page

Re,

Bah bof car ca veut dire que quand on sera en juin, I10 sera égal à juin, dans un fichier d'octobre...

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 24 Octobre 2006

• #19

Re : En tete et pied de page

re
1)l ecrire en dur sur ta feuille en A10 janvier ou février etc .....;
ou
faire un menu deroulant ou une boite inputbox de choix de mois ?

pas facile sans fichier lol

EetF

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 24 Octobre 2006

• #20

Re : En tete et pied de page

Euh je crois qu'on s'éloigne du pb
J'ai bel et bien une liste où on choisit le mois

Ce que je voudrais c'est que quand je choisis dans cette liste,
ca change dans l'entete
sans avoir à lancer la macro via alt F8

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 24 Octobre 2006

• #21

Re : En tete et pied de page

oups

alors mettre ta macro dans la Sheets("Page de garde & infos pratiques").

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PageSetup.CenterHeader = Range("I8").Value & " " & Range("I10").Value
End Sub
E et F

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 24 Octobre 2006

• #22

Re : En tete et pied de page

non mieux nat

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$10" Then Macro_Change_A10
End Sub
sur ta feuille "Page de garde & infos pratiques"

et ta macro dans un module

sub Macro_Change_A10
ActiveSheet.PageSetup.CenterHeader = Range("I8").Value & " " & Range("I10").Value
End Sub

la macro ne ce lancera que quand la cellule A10 sera .. changée

a te lire

E et F

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 24 Octobre 2006

• #23

Re : En tete et pied de page

J'arrive pas à adapter car la feuille où l'entete doit changer n'est pas la page pratique

Code:

Sub MAJ_entete_mois_en_cours()
Sheets("Comparatif CA-IM YTD-Budgt 2006").Activate
[COLOR=darkorange]ActiveSheet.PageSetup.CenterHeader = Sheets("Page de garde & infos pratiques).Activate.Range("I8").Value & " " & Range("I10").Value[/COLOR]
End Sub

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 24 Octobre 2006

• #24

Re : En tete et pied de page

Bon ca marche mais c'est pas optimal je pense

Sub MAJ_entete_mois_en_cours()
Sheets("Comparatif CA-IM YTD-Budgt 2006").Activate
ActiveSheet.PageSetup.CenterHeader = Sheets("Page de garde & infos pratiques").Range("I8").Value & " " & Sheets("Page de garde & infos pratiques").Range("I10").Value
End Sub

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 24 Octobre 2006

• #25

Re : En tete et pied de page

re Nat

tu peux raccourcir cette ligne

Sub MAJ_entete_mois_en_cours()

Sheets("Comparatif CA-IM YTD-Budgt 2006").Activate
ActiveSheet.PageSetup.CenterHeader = Sheets("Page de garde & infos pratiques").Range("I8").Value & " " & Range("I10").Value

End Sub


et si tu veux rester sur ta page de garde tu n'es pas obligé d activer ("Page de garde & infos pratiques")

Sub MAJ_entete_mois_en_cours()

Sheets("Comparatif CA-IM YTD-Budgt 2006").PageSetup.CenterHeader = Sheets("Page de garde & infos pratiques").Range("I8").Value & " " & Range("I10").Value

End Sub

a +

E et F

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 24 Octobre 2006

• #26

Re : En tete et pied de page

oups tu auras corrigé

et si tu veux rester sur ta page de garde tu n'es pas obligé d activer ("Comparatif CA-IM YTD-Budgt 2006")

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 24 Octobre 2006

• #27

Re : En tete et pied de page

MERCI bien

 

Vote positif 0 Vote négatif

M

mymyetnono

XLDnaute Junior

• 25 Janvier 2021

• #28

Evelynetfrancois à dit:

il s'agit d une ligne de commande VBA que tu dois integrer à ta macro
ActiveSheet.PageSetup.CenterFooter = Range("A1").Value

pour pied de page centré
.LeftFooter pour pied de page droit
.RightFooter pour pied de page gauche

.CenterHeader pour en-tête centrée
LeftHeader pour en-tete centrée
RigthrHeader pour en-tete centrée

Cliquez pour agrandir...

Bonjour, comment peut-on faire pour modifier la police d'écriture, mettre en gras et mettre en taille 20 à chaque mise à jour svp merci.

 

Vote positif 0 Vote négatif