Numérotation automatiques feuilles EXCEL

hichamzone -  
ddez Messages postés 19 Date d'inscription   Statut Membre -
Bonjour,

Je dispose d'un classeur excel qui contient plusieurs onglets (feuilles).
En effet, j'aimerai afficher automatiquement dans une cellule quelconque le numéro de l'onglet par rapport au nombre d'onglets total (1/6, 2/6, 3/6...6/6). En gros c'est une sorte de numérotation.

A présent, j'arrive à calculer le nombre d'onglets de mon classeur mais je ne sais pas comment identifier chaque classeur pour que la numérotation se fasse automatiquement.

L'objectif est qu'à chaque fois que j'insère un nouvel onglet (en copiant un onglet existant à la fin du classeur) le numéro s'affiche automatiquement.

Alors SVP est ce que quelqu'un aurait une idée là dessus ?!!

Merci d'avance pour votre assistance
Configuration: Windows XP
Internet Explorer 6.0
Office 2003

2 réponses

  1.
    ddez Messages postés 19 Date d'inscription   Statut Membre 9
     
    Comme ca ca marche : 
    Sub numerotation()

    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 = indice & "/" & nbFeuille
        End With
    Next feuille

End Sub
    6