Pagination onglets

[Chot51]

Bonjour,

Je voudrais savoir s'il est possible de faire une pagination automatique des onglets (feuilles). Je m'explique, je souhaiterais avoir en cellule A5 de chaqu'une de mes feuille, leur rang dans le classeur.

Ex: sur ma "feuil1" il y a le chiffre 1 en cellule A5
sur ma "feuil2" il y a le chiffre 2 en cellule A5
etc...

Je souhaiterais que cela se fasse automatiquement si j'inserre une feuille.

Merci

 

[mromain]

Re : Pagination onglets

Bonjour Chot51,

Voici un code à mettre au niveau de ThisWorkbook :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Range("A5").Value = Sh.Index
End Sub

a+

 

[Chot51]

Re : Pagination onglets

Merci beaucoup