XL 2013 affichage du numéro de page dans une cellule

[urbanito1]

Bonjour au forum

je cherche un moyen pour afficher dans la cellule A1 le numéro de page....en l'incrémentant à chaque nouvelle feuille...

Merci
urbanito1

 

[Jauster]

Hello,

Numéro de page ou numéro de feuille ? Car sur une feuille il peut y avoir plusieurs pages

 

[urbanito1]

salut Jauster
numéro de feuille excel

 

[Jauster]

Hello,

A tester dans un module

Sub NumFeuil()

    Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Range("A1") = ws.Index
    Next

End Sub

 

[DoubleZero]

Bonjour à toutes et à tous,

Après avoir utilisé le code de Jauster pour numéroter chaque onglet, la macro ci-dessous, placée dans "ThisWorkbook" fonctionne sur mon poste.

Option Explicit
Private Sub Workbook_NewSheet(ByVal o As Object)
    Dim numéro_onglet As Long
    numéro_onglet = ActiveWorkbook.Sheets.Count
    [a1] = ActiveWorkbook.Sheets.Count
End Sub

Attention : la macro ne fonctionne pas lors d'un ajout d'onglet par copie d'un existant.

A bientôt 🙂

 

[urbanito1]

le forum
juster
double zéro
merci et bo dimanche