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

Jauster

XLDnaute Occasionnel

• 5 Janvier 2018

• #2

Hello,

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

 

Vote positif 0 Vote négatif

urbanito1

XLDnaute Occasionnel

• 5 Janvier 2018

• #3

salut Jauster
numéro de feuille excel

 

Vote positif 0 Vote négatif

Jauster

XLDnaute Occasionnel

• 5 Janvier 2018

• #4

Hello,

A tester dans un module

VB:

Sub NumFeuil()

    Dim ws As Worksheet

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

End Sub

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 6 Janvier 2018

• #5

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.

VB:

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

 

Vote positif 0 Vote négatif

urbanito1

XLDnaute Occasionnel

• 7 Janvier 2018

• #6

le forum
juster
double zéro
merci et bo dimanche

 

Pièces jointes

• afficher numéro de page dans une cellule macro JUSTER double zéro.xlsm

  22.6 KB · Affichages: 21

Vote positif 0 Vote négatif