numeroter les pieds de pages d'onglets selon liste

[gilles72]

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

 

[ERIC S]

Re : numeroter les pieds de pages d'onglets selon liste

Bonjour

à tester et adapter

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

 

[gilles72]

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

 

[gilles72]

Re : numeroter les pieds de pages d'onglets selon liste

Re bonjour ERIC S
Nickel....
ça parait pourtant simple...
mais je butais la dessus
je te remercie bien
bonne journée
Gilles