Entête pied de page 4 lignes avec image

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
La Vouivre

La Vouivre

XLDnaute Occasionnel
Bonjour les amis
Je me suis fais une super macro grâce à ce que j’ai glané sur le forum, elle me permet d’avoir en entête et en pied de page 4 lignes que je peut placer soit à droite, au centre, ou à gauche.
Je nomme des cellules (voir exemple cellules jaunes) que je peux modifier la valeur à ma guise.
Jusque la tous va bien, mais ou ça se complique, je voudrais insérer une image dans l’entête à gauche à la suite des 4 lignes et là pas moyen de trouver le bout de code pour avoir l’image.
Je compte sur vous tous pour me dépanner, et merci d’avance pour vos super travaux
 

Pièces jointes

Trier par date Trier par votes
Re : Entête pied de page 4 lignes avec image

Bonjour La Vouivre 🙂,
J'ai fait un test (mais comme je suis en 2007, c'est pas la peine que je te copie le code, ça va pas le faire) avec l'enregistreur de macro. Ça fonctionne. Essaye en 2003, ça va peut-être le faire.
Bonne journée 😎
 
Vote positif 0 Vote négatif
Re : Entête pied de page 4 lignes avec image

J’ai deja essayer ,mais je n’arrive pas à associer les deux macro afin d’en faire qu’une
Je te passe mes codes

Sub Entete12noms()
Dim entete_gauche As String
Dim entete_gauche2 As String
Dim entete_gauche3 As String
Dim entete_gauche4 As String
Dim entete_centre As String
Dim entete_centre2 As String
Dim entete_centre3 As String
Dim entete_centre4 As String
Dim entete_droite As String
Dim entete_droite2 As String
Dim entete_droite3 As String
Dim entete_droite4 As String
Dim pied_gauche As String
Dim PG2 As String
Dim PG3 As String
Dim PG4 As String
Dim pied_centre As String
Dim PC2 As String
Dim PC3 As String
Dim PC4 As String
Dim pied_droit As String
Dim PD2 As String
Dim PD3 As String
Dim PD4 As String
Dim MaFeuille As Worksheet
entete_gauche = Range("=entete_gauche ").Value
entete_gauche2 = Range("=entete_gauche2").Value
entete_gauche3 = Range("=entete_gauche3").Value
entete_gauche4 = Range("=entete_gauche4").Value
entete_centre = Range("=entete_centre").Value
entete_centre2 = Range("=entete_centre2").Value
entete_centre3 = Range("=entete_centre3").Value
entete_centre4 = Range("=entete_centre4").Value
entete_droite = Range("=entete_droite").Value
entete_droite2 = Range("=entete_droite2").Value
entete_droite3 = Range("=entete_droite3").Value
entete_droite4 = Range("=entete_droite4").Value
pied_gauche = Range("=pied_gauche ").Value
PG2 = Range("=PG2").Value
PG3 = Range("=PG3").Value
PG4 = Range("=PG4").Value
pied_centre = Range("=pied_centre").Value
PC2 = Range("=PC2").Value
PC3 = Range("=PC3").Value
PC4 = Range("=PC4").Value
pied_droit = Range("=pied_droit").Value
PD2 = Range("=PD2").Value
PD3 = Range("=PD3").Value
PD4 = Range("=PD4").Value
For Each MaFeuille In Worksheets
MaFeuille.PageSetup.LeftHeader = entete_gauche & Chr(10) & entete_gauche2 & Chr(10) & entete_gauche3 & Chr(10) & entete_gauche4
MaFeuille.PageSetup.CenterHeader = entete_centre & Chr(10) & entete_centre2 & Chr(10) & entete_centre3 & Chr(10) & entete_centre4
MaFeuille.PageSetup.RightHeader = entete_droite & Chr(10) & entete_droite2 & Chr(10) & entete_droite3 & Chr(10) & entete_droite4
MaFeuille.PageSetup.LeftFooter = pied_gauche & Chr(10) & PG2 & Chr(10) & PG3 & Chr(10) & PG4
MaFeuille.PageSetup.CenterFooter = pied_centre & Chr(10) & PC2 & Chr(10) & PC3 & Chr(10) & PC4
MaFeuille.PageSetup.RightFooter = pied_droit & Chr(10) & PD2 & Chr(10) & PD3 & Chr(10) & PD4
Next
End Sub




Sub imageentete()
'
' imageentete Macro
' Macro enregistrée le 31/01/2009 par La Vouivre
'

'
Sheets(Array("Feuil2", "Feuil1")).Select
Sheets("Feuil1").Activate
ActiveSheet.PageSetup.LeftHeaderPicture.Filename = _
"C:\Documents and Settings\La Vouivre\Mes documents\Mes images\la vouivre\avatar27281_1.gif"
With ActiveSheet.PageSetup.LeftHeaderPicture
.Height = 31.5
.Width = 30.75
End With
With ActiveSheet.PageSetup
.LeftHeader = _
"entete gauche " & Chr(10) & "entete gauche2" & Chr(10) & "entete gauche3" & Chr(10) & "entete gauche4" & Chr(10) & "&G"
.CenterHeader = _
"entete centre + valeur modifié" & Chr(10) & "entete centre2" & Chr(10) & "entete centre3 MODIF" & Chr(10) & "entete centre4"
.RightHeader = "entete droite" & Chr(10) & "entete droite2" & Chr(10) & "entete droite3" & Chr(10) & "entete droite4"
.LeftFooter = "pied gauche " & Chr(10) & "PG2" & Chr(10) & "PG3" & Chr(10) & "PG4"
.CenterFooter = "pied centre la vouivre" & Chr(10) & "PC2" & Chr(10) & "PC3" & Chr(10) & "PC4"
.RightFooter = "pied droit" & Chr(10) & "PD2" & Chr(10) & "PD3" & Chr(10) & "PD4"
.LeftMargin = Application.InchesToPoints(0.787401575)
.RightMargin = Application.InchesToPoints(0.787401575)
.TopMargin = Application.InchesToPoints(0.984251969)
.BottomMargin = Application.InchesToPoints(0.984251969)
.HeaderMargin = Application.InchesToPoints(0.4921259845)
.FooterMargin = Application.InchesToPoints(0.4921259845)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = -3
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
End Sub


N’étant pas un pro d’Excel je ne sais pas encore comment ajouter les lignes de code sans que ça plante la macro
Merci beaucoup pour ton aide
 
Vote positif 0 Vote négatif
Re : Entête pied de page 4 lignes avec image

Re 🙂,
Il n'y a que quelques lignes 😀.
J'essayerais
Code: 
Sub Entete12noms()
Dim entete_gauche As String
Dim entete_gauche2 As String
Dim entete_gauche3 As String
Dim entete_gauche4 As String
Dim entete_centre As String
Dim entete_centre2 As String
Dim entete_centre3 As String
Dim entete_centre4 As String
Dim entete_droite As String
Dim entete_droite2 As String
Dim entete_droite3 As String
Dim entete_droite4 As String
Dim pied_gauche As String
Dim PG2 As String
Dim PG3 As String
Dim PG4 As String
Dim pied_centre As String
Dim PC2 As String
Dim PC3 As String
Dim PC4 As String
Dim pied_droit As String
Dim PD2 As String
Dim PD3 As String
Dim PD4 As String
Dim MaFeuille As Worksheet
entete_gauche = Range("=entete_gauche ").Value
entete_gauche2 = Range("=entete_gauche2").Value
entete_gauche3 = Range("=entete_gauche3").Value
entete_gauche4 = Range("=entete_gauche4").Value
entete_centre = Range("=entete_centre").Value
entete_centre2 = Range("=entete_centre2").Value
entete_centre3 = Range("=entete_centre3").Value
entete_centre4 = Range("=entete_centre4").Value
entete_droite = Range("=entete_droite").Value
entete_droite2 = Range("=entete_droite2").Value
entete_droite3 = Range("=entete_droite3").Value
entete_droite4 = Range("=entete_droite4").Value
pied_gauche = Range("=pied_gauche ").Value
PG2 = Range("=PG2").Value
PG3 = Range("=PG3").Value
PG4 = Range("=PG4").Value
pied_centre = Range("=pied_centre").Value
PC2 = Range("=PC2").Value
PC3 = Range("=PC3").Value
PC4 = Range("=PC4").Value
pied_droit = Range("=pied_droit").Value
PD2 = Range("=PD2").Value
PD3 = Range("=PD3").Value
PD4 = Range("=PD4").Value
For Each MaFeuille In Worksheets
MaFeuille.PageSetup.LeftHeaderPicture.Filename = _
"C:\Documents and Settings\La Vouivre\Mes documents\Mes images\la vouivre\avatar27281_1.gif"
With MaFeuille.PageSetup.LeftHeaderPicture
.Height = 31.5
.Width = 30.75
End With
MaFeuille.PageSetup.CenterHeader = entete_centre & Chr(10) & entete_centre2 & Chr(10) & entete_centre3 & Chr(10) & entete_centre4
MaFeuille.PageSetup.RightHeader = entete_droite & Chr(10) & entete_droite2 & Chr(10) & entete_droite3 & Chr(10) & entete_droite4
MaFeuille.PageSetup.LeftFooter = pied_gauche & Chr(10) & PG2 & Chr(10) & PG3 & Chr(10) & PG4
MaFeuille.PageSetup.CenterFooter = pied_centre & Chr(10) & PC2 & Chr(10) & PC3 & Chr(10) & PC4
MaFeuille.PageSetup.RightFooter = pied_droit & Chr(10) & PD2 & Chr(10) & PD3 & Chr(10) & PD4
Next
End Sub
sans garanties 😱
A +
 
Vote positif 0 Vote négatif
Re : Entête pied de page 4 lignes avec image

Salut la Vouivre, JNP 🙂, le Forum

Un essai en pièce jointe mais le résultat n'est pas très probant.
sur une idée de MichelXLD 🙂 (heu...siçamarchepas...c'estdesafaute 😀 😛 😱)
vois si tu peux en tirer quelque chose 😱

Bonne Journée
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

W
  • Question Question
XL 2019 Transformer des lignes de codes pour pratiquer Tablo à 4 colonnes et 40 lignes
2 3
Réponses
40
Affichages
2 K
Webperegrino
W
S
  • Question Question
Microsoft 365 Macro Pied de page incrusté sur feuilles sélectionnées
Réponses
5
Affichages
1 K
Syb59
S
jeanmi
  • Question Question
XL 2010 Import image dans des cellules fusionnées, sans déformation de l'image.
Réponses
0
Affichages
1 K
jeanmi
jeanmi
A
  • Résolu(e)
XL 2016 Décompte de valeurs précises avec bornage
Réponses
11
Affichages
2 K
albuqs
A
S
  • Résolu(e)
XL 2013 tirer une formule avec saut de plage de lignes
Réponses
10
Affichages
4 K
sergio545
S
A
  • Question Question
XL 2016 Entête et pied de pages
Réponses
2
Affichages
589
auverland
A
L
  • Résolu(e)
XL 2010 Récupération des données en les transférant avec des tri et enregistrement
2
Réponses
23
Affichages
3 K
Linda42
L
GADENSEB
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
GADENSEB
L
  • Question Question
XL 2013 VBA - Dupliquer ligne et fusionner certaines colonnes
Réponses
2
Affichages
1 K
Leché
L
A
  • Question Question
Microsoft 365 Sélectionner texte de la cellule "non vide" sur 3 cellules contenant des formules
Réponses
3
Affichages
1 K
sylvanu
sylvanu
B
  • Question Question
Impression de pages à la suite avec répétition de l'entête
Réponses
1
Affichages
962
Modeste geedee
Modeste geedee
V
  • Question Question
XL 2013 boutons dans entête ou pied de page.
Réponses
4
Affichages
887
VINCENTNINI
V
L
  • Question Question
macro pour entête et pied de page
Réponses
2
Affichages
978
loiclass
L
B
  • Question Question
code vba pour entete et pied de page
Réponses
3
Affichages
6 K
gosselien
gosselien
A
  • Question Question
XL 2016 VBA Lister fichiers d'un dossier avec lien hypertexte
Réponses
1
Affichages
4 K
Roland_M
Roland_M
J
  • Question Question
Une partie de flechettes avec moi ?
2
Réponses
21
Affichages
9 K
PMO2
P
L
  • Question Question
XL 2013 Code Macro "effacer des cellules (garder les lignes) en fonction du mois en cours"
2
Réponses
22
Affichages
8 K
LaREUNION
L
J
  • Question Question
Pied de page arghhhh!!!!
Réponses
1
Affichages
653
chris
chris
S
  • Question Question
[RESOLU] VBA - Boucler sur une colonne de façon dynamique (Avec insertion de lignes)
Réponses
4
Affichages
1 K
ERIC S
ERIC S
C
  • Question Question
Réaliser un fichier avec une page extensible (Colonnes masquées/apparentes)
2
Réponses
20
Affichages
2 K
Chri8Ed
C
Retour