Sommaire avec numéro de pages sur Excel
Résolu/Fermé
Chester Copperpot
Messages postés
17
Date d'inscription
samedi 29 novembre 2008
Statut
Membre
Dernière intervention
14 janvier 2022
-
13 janv. 2022 à 18:44
Chester Copperpot Messages postés 17 Date d'inscription samedi 29 novembre 2008 Statut Membre Dernière intervention 14 janvier 2022 - 14 janv. 2022 à 07:22
Chester Copperpot Messages postés 17 Date d'inscription samedi 29 novembre 2008 Statut Membre Dernière intervention 14 janvier 2022 - 14 janv. 2022 à 07:22
A voir également:
- Sommaire excel automatique
- Sommaire automatique word - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Message automatique thunderbird - Guide
- Aller à la ligne excel - Guide
1 réponse
via55
Messages postés
14476
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 septembre 2024
2 729
Modifié le 13 janv. 2022 à 19:30
Modifié le 13 janv. 2022 à 19:30
Bonsoir
En VBA l'instruction donnant le nombre de pages d'une feuille est :
nbf =ExecuteExcel4Macro("GET.DOCUMENT(50)")
Exemple de macro pour relever les noms de toutes les feuilles et le n° de leur première page lors d'une impression totale
Cdlmnt
Via
En VBA l'instruction donnant le nombre de pages d'une feuille est :
nbf =ExecuteExcel4Macro("GET.DOCUMENT(50)")
Exemple de macro pour relever les noms de toutes les feuilles et le n° de leur première page lors d'une impression totale
Sub sommaire() 'si la première feuille excel commence à 1 mettre deb =0 sinon si par ex sommaire en 1er sur une page numérotée page 1 mettre comme ici deb=1 deb = 1 ' le sommaire étant en premier onglet, boucle sur les autres feuilles For n = 2 To Sheets.Count Sheets(n).Select ' relève le nom de la feuille Sheets("Sommaire").Range("B" & n) = Sheets(n).Name ' inscrit le n° de la 1ere page Sheets("Sommaire").Range("C" & n) = deb + 1 'incrémente la variable avec le nombre de pages de la feuille deb = deb + ExecuteExcel4Macro("GET.DOCUMENT(50)") Next Sheets("Sommaire").Select End Sub
Cdlmnt
Via
14 janv. 2022 à 07:22
Et bien merci beaucoup pour cette réponse parfaite! C'est exactement ce que je voulais.
Du coup plus d'excuse, je vais devoir me mettre au travail maintenant!
Très bonne journée à vous.