Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

numeroter les pieds de pages d'onglets selon liste

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gilles72
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

gilles72

XLDnaute Junior
bonjour à tous,
Sur un fichier qui comporte env.40 onglets-type utilisés sur des projets professionnels.
Une macro recopie certains de ces onglets en plusieurs exemplaires, selon les besoin des différents projets,
et les renomme.
Mais je laisse les onglets type dans le fichiers, pour les retrouver si un oubli le necessite.
Une autre macro numérote alors tous les onglets dupliqués, car
Seuls ces onglets dupliqués et personnalisés seront utilisés sur le projet.

Pour numéroter leur pied de page, j'utilise une macro qui lalaye chaque onglet et lui ajoute un numéro de page, SAUF les onglets-type, à NE PAS numéroter

J'aimerais que cette macro puisse balayer une liste (voir exemple sur la feuille 1), qui comporte les noms des feuilles type à NE PAS numéroter

Je ne suis pas sur d'être clair
je vous joins un fichier exemple avec :
des pages 1 2 3 4 5 (onglet-type)
une feuille RECAP qui doit être ignorée
une feuille feuil1 qui comporte la liste des onglets-type

Merci à ceusse qui comprennet kekchose à mon charabia
et qui n'ont pas (plus?) la chance d'être en vacances
Gilles
 

Pièces jointes

Trier par date Trier par votes
Re : numeroter les pieds de pages d'onglets selon liste

Bonjour

à tester et adapter

Code: 
Dim c As Range
Dim cst As String
réservé = 0
For i = 1 To Sheets.Count
    For Each c In Sheets("Feuil1").Range("A1:A20")
    cst = c.Value
        If cst = Sheets(i).Name Then réservé = 1: Exit For
    Next
    If réservé = 0 Then
        MsgBox "feuille " & Sheets(i).Name & " modifiable"
        'cette partie reçoit le code pour renommer
    Else
        MsgBox "feuille " & Sheets(i).Name & " non modifiable"
        réservé = 0
    End If
Next
 
Vote positif 0 Vote négatif
Re : numeroter les pieds de pages d'onglets selon liste

Bonjour ERIC S
déolé du retard à la réponse
j'étais en congé
je regarde ta proposition (j'ai pas mal de trucs en retard) et reprendle fil
merci de toutes façons, de ton aide
Gilles
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
376
job75
D
  • Résolu(e)
Microsoft 365 carte choroplèthe et conditionner la couleur selon une liste déroulante de choix
Réponses
8
Affichages
266
Daniel200666
D
J
  • Résolu(e)
XL 2021 Aide code VBA - à partir de deux listes, créer une base de donnée
2
Réponses
22
Affichages
1 K
merinos-BernardEtang
T
  • Résolu(e)
XL 2013 Harmoniser valeur de cellules selon 2 variables
Réponses
4
Affichages
282
Thomas75
T
  • Résolu(e)
Microsoft 365 Ajout d'onglet par VBA et entête de colonnes
2
Réponses
17
Affichages
1 K
Roseline
M
  • Question Question
XL 2021 Macro qui permette d'afficher les feuilles à partir d'une liste déroulante
Réponses
5
Affichages
910
MCO2406
M
  • Question Question
Microsoft 365 Curiosité : enregistrement impossible à cause de la liste des erreurs (#NUL!, #DIV/0!, #REF!, etc.)
Réponses
1
Affichages
471
Simply
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
572
Lu76Fer
P
  • Question Question
Microsoft 365 Automatisation avec création de fichier et d'onglets en fonction des valeurs
2
Réponses
15
Affichages
1 K
pene
P
J
  • Question Question
XL 2021 reporter des données entre plusieurs feuilles sans décalage de lignes dans les tableaux
Réponses
4
Affichages
710
job75
E
  • Résolu(e)
Microsoft 365 Conception d'un outils alliant faciliter d'utilisation et optimisation de la RAM/Processeur/Espace Disque
Réponses
6
Affichages
814
elgringo123456
E
  • Question Question
Microsoft 365 Excel : Récuperer les données de différents tableaux dans un seul tableau avec liste déroulante.
Réponses
5
Affichages
1 K
Hugo_CAN
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
719
Cheyenne_2021
C
C
  • Résolu(e)
Microsoft 365 Amélioration de mon code VBA
Réponses
9
Affichages
691
Cherrylie
C
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
798
oguruma
S
  • Question Question
XL 2010 afficher les feuilles qui comporte une même partie de noms d'onglets
Réponses
6
Affichages
1 K
submarine22
S
M
  • Question Question
Microsoft 365 Afficher onglet selon valeur cellule via un bouton de validation
Réponses
4
Affichages
844
MACx
M
K
  • Question Question
XL pour MAC Copier coller les pages de feuilles différentes en fonction de mots clés, à la suite sur une même pages pour impression
Réponses
4
Affichages
837
Deadpool_CC
J
  • Question Question
XL 2016 Mise en forme conditionnelle en vert de noms, si ces noms figurent dans une liste de noms d'un autre onglet (formules dans MFormCond, ou VBA)
Réponses
5
Affichages
987
sylvanu
R
  • Question Question
XL 2010 Distribuer une liste de participants selon conditions
2 3
Réponses
32
Affichages
3 K
yal
Y
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…