incrémentation d'une cellule

[thiemma]

Bonjour,
Voilà mon problème :
Je voudrais faire apparaître dans une cellule le nom de ma feuille (onglet), et ce pour chaque feuille de mon classeur. Est-ce une opération possible ?
Merci par avance aux courageux qui résoudraient mon problème.

 

[Pierrot93]

Re : incrémentation d'une cellule

Bonjour,

regarde le code ci-dessous, affichera les noms sur la feuille active :

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    Cells(ws.Index, 1).Value = ws.Name
Next ws
End Sub

bonne journée
@+

 

[ERIC S]

Re : incrémentation d'une cellule

Bonjour

par formule

=REMPLACER(CELLULE("nomfichier");1;TROUVE("]";CELLULE("nomfichier");1);"")

donne le nom de la feuille active

si tu veux la liste des feuilles, c'est par macro sans doute comme propose Pierrot