[RESOLUTO]pagination X/Y dans les pieds de pages

[Ilino]

Forum Bonsoir
ci dessous un code qui fonctionne parfaitement ( GRAZIE MAITRE)

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim t As String
 t = "Page 1/" & Me.HPageBreaks.Count + 1
 If [H7] <> t Then [H7] = t
 End Sub

ce code il affiche dans la cellule H7 nombre de page(non vide) d'une feuille X/Y (n° de la page / l'ensemble des pages)
exemple : j'ai dans la feuille1 trois page , dans la cellule H7 j'ai 1/3 je souhaite affiche dans "les pieds de page" des page ( 2 et 3) 2/3 et 3/3 automatiquement... Is it possibl ??
GRAZIE PAR AVANCE

 

[Ilino]

Re : pagination X/Y dans les pieds de pages

Bonsoir FORUM
PUIS JE AVOIR VOS COMMENTAIRES ET REPONSES😕
GRAZIE

 

[job75]

Re : pagination X/Y dans les pieds de pages

Re-bonsoir Ilino,

Cela se fait manuellement ou par ce code :

ActiveSheet.PageSetup.CenterFooter = "&P/&N"

A+

 

[Ilino]

Re : pagination X/Y dans les pieds de pages

RE maitre
c'est fait et ça fonctionne très bien
Pblm résolut
GRAZIE MAITRE

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim t As String
 t = "Page 1/" & Me.HPageBreaks.Count + 1
 If [H7] <> t Then [H7] = t
ActiveSheet.PageSetup.CenterFooter = "&P/&N"
 End Sub

 

[Ilino]

Re : [RESOLUTO]pagination X/Y dans les pieds de pages

Re
maitre j'ai ajouté a ton code

ActiveSheet.PageSetup.CenterFooter = "Doc ita ilino " & Month(Date) & "/" & Year(Date) & " -  " & "&P/&N" 'pied de page

Doc ita ilino 12/2014 - 1/2
mais je souhaite afficher Doc ita ilino Déc.2014 - 1/2
comment faire pour modifier le mois "Month(Date)"??
GRAZIE

 

[job75]

Re : [RESOLUTO]pagination X/Y dans les pieds de pages

Re,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As String
t = "Page 1/" & Me.HPageBreaks.Count + 1
If [H7] <> t Then [H7] = t
Me.PageSetup.CenterFooter = "Doc ita ilino " & _
  Application.Proper(Format(Date, "mmm.yyyy")) & " - &P/&N"
End Sub

A+

 

[Ilino]

Re : [RESOLUTO]pagination X/Y dans les pieds de pages

RE
je t'avais dis que tu es le BEST OF THE BEST😱
grazie maitre