numéro de page = numéro de feuille

[sfconstant]

Bonsoir à tous,
Je suis un débutant en VBA.
J'ai un classeur avec une vingtaine de feuilles (1 page par feuille). Je voudrais insérer sur chaque feuille un numéro de page (+ nom de l'onglet)correspondant à la position de l'onglet de la feuille :
Page 1 + Nom de l'onglet = Feuille la plus à gauche

Les feuilles peuvent changer de position et leur nombre peut varier.

Enfin, il faudrait une feuille sommaire avec le nom des onglets et le numéro de page.

Est-ce que cela est possible ?

Merci d'avance.

 

[skoobi]

Re : numéro de page = numéro de feuille

Bonsoir,

beaucoup de chose sont possible en VBA, mais sans exemple du résultat souhaité......

 

[sfconstant]

Re : numéro de page = numéro de feuille

Voici un fichier joint illustrant mon explication.
Merci

 

[ninbihan]

Re : numéro de page = numéro de feuille

Bonsoir SFconstant, Skoobi,

Voici un essai, la macro se trouve dans thisworkbook et se déclenche lors d'un aperçu ou d'une impression


Bonne soirée,

Ninbihan

 

[sfconstant]

Re : numéro de page = numéro de feuille

Merci beaucoup Ninbihan, cela fonctionne trés bien : je souhaiterais que le n° de page et l'intitulé soit sur l'extrème droite de la feuille.
Est-il possible de faire automatiquement une feuille sommaire ?

Merci
Sfconstant

 

[ninbihan]

Re : numéro de page = numéro de feuille

Re,

Dans this workbook tu mets cela à la place de l'existant:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.RightFooter = ActiveSheet.Index & " " & ActiveSheet.Name
ActiveSheet.PageSetup.CenterFooter = ""
End Sub

Pour le sommaire, qu'est ce qui va déclencher sa màj ? (un bouton, l'activation de la feuille ?)

Edit: un essai en piéce jointe

 

[sfconstant]

Re : numéro de page = numéro de feuille

Pour la mise à jour du sommaire, l'activation de la feuille serait une trés bonne solution.
Merci

 

[ninbihan]

Re : numéro de page = numéro de feuille

Re,

Voir mon post précédent

Bonne soirée,

Ninbihan

 

[kjin]

Re : numéro de page = numéro de feuille

bonsoir sfconstant, ninbihan,
Un essai avec liens hypertextes - merci à JB
A+
kjin

 

[sfconstant]

Re : numéro de page = numéro de feuille

merci à Ninbihan, Kjin, JB et Skoobi pour ce fichier qui fonctionne trés bien.
Est-il possible dans le sommaire de faire correspondre le nom de la feuille avec le numéro de page ?
Merci

 

[sfconstant]

Re : numéro de page = numéro de feuille

Excusez moi pour mon avant dernière intervention qui n'avait pas lieu. En combinant les deux fichiers exemple, j'ai un résultat trés satisfaisant sauf que la dernière ligne du sommaire se rèpète une fois : comment ça se fait ?

Je souhaiterais également connaître le meilleur livre pour apprendre le vba.

Merci

 

[jeanpierre]

Re : numéro de page = numéro de feuille

Bonsoir le fil, sfconstant,

Pour te dire, il n'y a pas de livre pour apprendre le VBA, ou plus exactement, tu n'y trouveras rien qui puisse répondre à tes questionnements... Tous les exemples donnés, que ce soit sous Excel ou sous VBA, sont toujours les mêmes ou presque dans tous les bouquins... et pourtant, dieu sait que j'adore les bouquins...

Simplement ici et avec un peu de recherche, d'étude des questions et des fichiers déposés... tu pourras, de loin en loin, avancer....

Le meilleur livre est XLD....

Voilà pour moi....

Bonne soirée et recherche.

Jean-Pierre

 

[kjin]

Re : numéro de page = numéro de feuille

Re le fil,
C'est normal, le num de la 1ère page n'était pas pris en compte
A+
kjin

 

[sfconstant]

Re : numéro de page = numéro de feuille

Bonjour à tous
Merci pour les conseils Jean Pierre et pour le fichier Kjin
j'ai un dernier soucis : je ne voudrais pas faire apparaître dans le sommaire : la page sommaire et son numéro de page (Clairement, je voudrais que la page 1 soit l'onglet 2).
et donc que la mumérotation des pages à l'impression commence à la deuxième feuille.
Merci beaucoup.

 

[kjin]

Re : numéro de page = numéro de feuille

bonjour sfconstant, le fil
Voilà
A+
kjin