Pagination automatique dans une celule

Bonjour,

Je souhaiterai mettre la pagination de mon classeur (193 feuille) dans une cellule sur chaque feuille à la place du pied de page.

( ICI cellule at10 )

Pour cela j'utilise la macro suivante mais suis bloqué sur l'information qu'elle contient :

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

Cela fonctionne presque sauf qu'au lieu d'afficher la pagination , la cellule affiche: &P/&N

et je ne suis pas sûr de la ligne : .RightFooter = "" le but étant que l’affichage ne se fasse pas en bas de page.

Quelqu'un pourrait-il me venir en aide en résolvant cette macro svp ?

Bien sur, si ll y a une fonction ou autre système plus direct qu'une macro, je suis preneur ^^

Merci d'avance à ceux qui se pencherons sur le problème

Bonjour

Pour numéroter les feuilles d'un classeur en AT10

Sub Numeroter()
    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 & " sur " & nbFeuille
        End With
    Next feuille
End Sub

Cordialement

Bonjour et un grand merci ^^

après 3 jours de recherche sur plusieurs forum voici enfin la réponse parfaite.

Merci beaucoup pour la solution, cela va représenter un grand gain de temps sur les multiples classeurs très volumineux dont on s'occupe très régulièrement.

ps: ici la solution apporté se reporte à la cellule A1. remplacez juste dans le programme le A1 par la cellule de votre choix.

Rechercher des sujets similaires à "pagination automatique celule"