Numérotation automatique des feuilles dans un classeur excel Résolu/Fermé

Question

Bonjour, 

Qui serait me dire comment, dans un classeur excel qui contient de 100 à plus de 300 feuilles, faire une numérotation automatique des feuilles de 001 pour la première jusqu'à la fin en sachant que les feuilles que je souhaite numéroter ne sont pas au début de mon classeur.

Cordialement

cs_Le Pivert · Accepted Answer

Bonjour,

comme ceci:

Sub ListerOnglets()
' Liste uniquement les onglets de type "Feuille"
' Les onglets de type "Graphique" ne sont pas inclus
Dim ws As Worksheet
Dim i As Integer
i = 1
For Each ws In ThisWorkbook.Worksheets
If ws.Index > 5 Then 'démarre après le 5ème onglet à adapter
ws.Name = "00" & i
i = i + 1
End If
Next ws
End Sub

ccm81 · Answer

Bonjour à tous les deux

Une petite modification à la proposition de cs_LePivert (salut cordial au passage) pour caler les noms sur 3 caractères

Sub ListerOnglets()
' Liste uniquement les onglets de type "Feuille"
' Les onglets de type "Graphique" ne sont pas inclus
Dim ws As Worksheet
Dim i As Integer, s As String
i = 1
For Each ws In ThisWorkbook.Worksheets
  If ws.Index > 5 Then 'démarre après le 5ème onglet à adapter
    Select Case Int(Log(i) / Log(10))
      Case 0: s = "00" & i
      Case 1: s = "0" & i
      Case 2: s = "" & i
    End Select
    ws.Name = s
    i = i + 1
  End If
Next ws
End Sub
Cdlmnt

ccm81 · Answer

Pas de solution sans VBA
Par prudence, faire la manip sur une copie de ton fichier
1. Alt-F11 pour accéder à l'éditeur vba
2. Insertion/Module pour créer un Module1
3. Coller tout le code dans ce module 1
4. Retour à une feuille
5. Outils/Macros/Sélectionner la macro/Exécuter
6. C'est tout

Cdlmnt