Incrémenter donnée d'une cellule dans pied de page

[Ark30]

Bonsoir à tous,

Je cherche à écrire un code VBA qui me permettrait de personnaliser le pied de page d'une feuille Excel de la façon suivante:

Par exemple, si le pied de page de la première page contient 305, le pied de page de la 2ème page devra contenir 306 puis 307 pour le 3ème etc.

Je sais comment insérer une donnée dans le pied de page. Seulement, je ne vois pas comment je pourrai procéder pour incrémenter la donnée du pied de page de chaque page.

Merci,

 

[Ark30]

Bonsoir,

J'ai cherché sur le forum mais malheureusement je n'ai pas trouvé de réponse à ma question.

Pourriez vous m'aider svp?

Merci,

 

[Ark30]

Up

 

[Staple1600]

Bonsoir le fil, le forum

@Ark30
Peut-être que si tu joignais un fichier exemple, tu aurais plus de réponse...

 

[Ark30]

Bonsoir le forum, Bonsoir Staple1600,

Merci pour votre disponibilité.

J'ai joint un fichier qui sera composé de 3 pages lors de l'impression de la Feuil1.
Mon but est de récupérer la valeur se trouvant dans la cellule A1 de Feuil2 qui est de 1650 et de l'incrémenter sur chaque pied de page. (pied de page de la page n° 1 est 1650, celui de la page 2 sera 1651, celui de la page 2 sera 1652.

Merci beaucoup pour votre aide,

 

[Staple1600]

Re

Voir si cela t'inspire

Sub Test()
Dim rngA, x&, j&
x = ExecuteExcel4Macro("GET.DOCUMENT(50)")
rngA = Array("A1:H50", "A51:H100", "A101:H150")
Application.ScreenUpdating = False
For j = 0 To 2
  With ActiveSheet.PageSetup
  .PrintArea = rngA(j): .CenterFooter = Feuil2.[A1] + j + 1
  End With
ActiveSheet.PrintPreview
Next j
ActiveSheet.PageSetup.PrintArea = Empty
End Sub

Evidemment ici, cela fonctionnera uniquement pour ton fichier exemple.
Pour plus, il faudra quelques adaptations, mais pour l'heure, je vais au dodo

 

[job75]

Bonsoir Ark30, JM,

Je ne comprends vraiment pas JM que tu n'aies pas donné cette solution :

Sub Numérotation()
With Feuil1.PageSetup
    .FirstPageNumber = Feuil2.[A1]
    .CenterFooter = "&P"
    '.CenterFooter = "&P/" & Feuil1.HPageBreaks.Count + Feuil2.[A1] 'si l'on préfère
End With
End Sub

A+

 

[Ark30]

Bonsoir job75, merci infiniment pour ton aide! Ta solution est vraiment super! Merci!
Merci également à toi Staple1600, j'apprécie que tu m'aies orienté au début et que tu m'aies proposé une piste de recherche

Je vous souhaite une excellente soirée!