Numérotation page

bonjour,

je voudrais numéroté les pages d'un classeur entier de façon à ce que la numérotation se suive et ne recommence pas à chaque nouvelle feuille. J'espère avoir été claire, je suis nouvelle et pas experte des forums. Merci à ceux qui pourront m'aider

Bonsoir

Avec une Macro dans un Module

Sub Numeroter()
    indice = 0
    nbFeuille = ThisWorkbook.Sheets.Count
    For Each feuille In ThisWorkbook.Sheets
        indice = indice + 1
        With feuille.Range("A1")
            .NumberFormat = "@" 'pour éviter que la valeur entrée soit prise pour une date
            .Value = "Page " & indice & " sur " & nbFeuille
        End With
    Next feuille
End Sub

Pour placer la numérotation ailleur qu'en A1, tu changes l'adresse sur la ligne

With feuille.Range("A1")

Cordialement

42classeur3.zip (7.25 Ko)
Amadéus a écrit :

Bonsoir

Avec une Macro dans un Module

Sub Numeroter()
    indice = 0
    nbFeuille = ThisWorkbook.Sheets.Count
    For Each feuille In ThisWorkbook.Sheets
        indice = indice + 1
        With feuille.Range("A1")
            .NumberFormat = "@" 'pour éviter que la valeur entrée soit prise pour une date
            .Value = "Page " & indice & " sur " & nbFeuille
        End With
    Next feuille
End Sub

Pour placer la numérotation ailleur qu'en A1, tu changes l'adresse sur la ligne

With feuille.Range("A1")

Cordialement

merci beaucoup, je vais essayer de m'en sortir car comme je l'ai dit je ne suis pas une pro d'excel !

Rechercher des sujets similaires à "numerotation page"