pied de page dans une cellule

[fred090776]

Bonjour, (je possède aussi XL2010)
y a t il un moyen de mettre l'information d'un pied de page à l’intérieur d'une cellule?

 

[PMO2]

Re : pied de page dans une cellule

Bonjour,

J'ai utilisé des MsgBoxes mais on peut tout aussi bien inscrire les infos dans des cellules

Sub aa()
With ActiveSheet.PageSetup
  MsgBox .LeftFooter, , "à gauche"
  MsgBox .CenterFooter, , "au centre"
  MsgBox .RightFooter, , "à droite"
  '---
'  [a1] = .LeftFooter
'  [b1] = .CenterFooter
'  [c1] = .RightFooter
End With
End Sub

 

[fred090776]

Re : pied de page dans une cellule

Bonjour,

J'ai utilisé des MsgBoxes mais on peut tout aussi bien inscrire les infos dans des cellules

Sub aa()
With ActiveSheet.PageSetup
  MsgBox .LeftFooter, , "à gauche"
  MsgBox .CenterFooter, , "au centre"
  MsgBox .RightFooter, , "à droite"
  '---
'  [a1] = .LeftFooter
'  [b1] = .CenterFooter
'  [c1] = .RightFooter
End With
End Sub

Merci, je vais essayer ça de suite ^^ même si je sais pas ce qu'est un MsgBoxes ou cellule

Sub aa(). 
j'imagine que c est dans macro qu il faut aller ....
Cela dit , ça m’intéresse fortement de connaitre tout cela ^^
je pars de ce pas tout tenter pour y arriver...

 

[fred090776]

Re : pied de page dans une cellule

on touche au but ^^
j ai réussi à obtenir cette macro mais il se pose un problème:


Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 14/10/2015 par Sellier-f
'
' Touche de raccourci du clavier: Ctrl+z
'
'Sub aa()
With ActiveSheet.PageSetup
' MsgBox .LeftFooter, , "à gauche"
' MsgBox .CenterFooter, , "au centre"
' MsgBox .RightFooter, , "à droite"
'---
' [a1] = .LeftFooter
' [b1] = .CenterFooter
[at10] = .RightFooter
.RightFooter = ""
End With
End Sub


Comme mon texte de pied de page est justement une pagination cela m' affiche "&P/&N" dans la cellule. il doit me manquer quelque chose, mais je bloque...

 

[fred090776]

Re : pied de page dans une cellule

ps: pour la ligne : .RightFooter = ""

cela a pour but de n'afficher le pied de page que dans la cellule et ne soit pas apparent en bas de page.

 

[PMO2]

Re : pied de page dans une cellule

Bonjour,

D'après ce que je crois comprendre, l'information que vous essayez d'obtenir est le nombre de pages à l'impression.
Si c'est bien cela, essayez

Sub nbPages()
MsgBox ActiveSheet.HPageBreaks.Count + 1
End Sub

 

[fred090776]

Re : pied de page dans une cellule

En fait, Je souhaiterai que le pied de page de forme "&[Page]/&[Pages]" (page/nbr de pages) apparaisse dans la cellule "AT10" de chaque feuilles de mon classeur et non pas en bas de page.

Le classeur est un recueil de plan géographique sous cartouche et la cellule AT10 correspond à l'emplacement de la pagination.

 

[fred090776]

Re : pied de page dans une cellule

merci de votre suivi

 

[fred090776]

Re : pied de page dans une cellule

Bonjours à tous et un grand merci à PM02 qui s'est décarcassé à m'aider et comprendre ma demande pas vraiment clair ^^.

La solution pour paginer un classeur dans une cellule (ici la cellule "AT10") m'a été transmise d'un autre forum mais je tiens à la partager car c'est le but de ces discutions et pour remercier la réactivité exceptionnel de ce forum-ci qui est nettement plus avancé.

voici la solution:

Sub pagination()
indice = 0
nbFeuille = ThisWorkbook.Sheets.Count
For Each feuille In ThisWorkbook.Sheets
indice = indice + 1
With feuille.Range("AT10")
.NumberFormat = "@" 'pour éviter que la valeur entrée soit prise pour une date
.Value = "Page: " & indice & " / " & nbFeuille
End With
Next feuille
End Sub

 

[PMO2]

Re : pied de page dans une cellule

Bonjour,

OK.
Tout ce que j'ai pu répondre, d'après ce que j'ai cru comprendre de votre demande, n'a strictement rien à voir avec le résultat que vous escomptiez.

Tout est bien qui finit bien.