XL 2013 Formule pour en-tete du classeur

[Souba]

Bonjour à vous,

Je voudrais transférer les informations qui sont saisies dans la prmière feuille de mon classeur différentes informations dans l'entete de mon classeur :
Dans mon fichier joint, je voudrais que la date apparaisse en tete a droite, que le tire et le numero dans l'entete centre.

Je suppose que seul le vba pourrait m'être utile maisc'est une personne que je voudrais bien connaitre mais qui parle une autre langue que moi

Merci a vous d'avance

 

[sousou]

bonjour
Si tu parles de l'entête d'impression d'une feuille?, quelque-chose comme ceci devrait aller (feuille active)
Sub entete()
With ActiveSheet.PageSetup
.RightHeader = Format(.Parent.Range("b1"), "dddd mmmm yyyy")
.CenterHeader = .Parent.Range("b2") & " " & .Parent.Range("b3")
End With
ActiveSheet.PrintPreview
End Sub

 

[Souba]

Bonjour Sousou,

Merci de ton temps à me consacrer

effectivement ce code fonctionne mais je voudrais que cela apparaisse sur l'ensemble de mes pages a imprimer.
de la feuille 1 à la feuille 7 si j'ai 7 onglets.
Une idée car je sèche
Merci d'avance

 

[sousou]

RE
Comme ceci : prévisualisation de toutes les pages si elles contiennent quelques choses
Sub entete()
For Each f In Sheets
With f.PageSetup
.RightHeader = Format(.Parent.Range("b1"), "dddd mmmm yyyy")
.CenterHeader = .Parent.Range("b2") & " " & .Parent.Range("b3")

.Parent.PrintPreview
End With
Next

End Sub

 

[Souba]

Re ,

C'est ce genre de code effectivement mais, dis moi si j'abuse, je voudrais que uniquement les données du premier onglet apparaissent dans les entêtes de toutes les pages du classeur.

Merci a toi et de ton temps

 

[sousou]

Effectivement,
corrige comme ceci:
Sub entete()
With Sheets(1)
droite = Format(.Range("b1"), "dddd mmmm yyyy")
centre = .Range("b2") & " " & .Range("b3")
End With
For Each f In Sheets
With f.PageSetup
.RightHeader = droite
.CenterHeader = centre

.Parent.PrintPreview
End With
Next

End Sub

 

[Souba]

Merci Sousou,

Ca fonctionne nickel je dois maintenant modifier mon texte mais je vais essayer de me debrouiller seul.
Merci encore