Renommer tous les onglets de 1 à 4000

[miissyou88]

Bonjour,

Je dois créer pour mon boulot un fichier contenant des onglets numérotés de 1 à 4000, peut-être plus même.

J'ai compris comment les dupliquer, mais comment puis-je faire pour les renommer automatiquement sans que j'aie à le faire manuellement sur chaque onglet ? Parce qu'à ce rythme là je n'ai pas terminé 😕

Merci d'avance pour vos réponses

 

[Robert]

Re : Renommer tous les onglets de 1 à 4000

Bonjour Miisyou et bienvenue, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim o As Object 'déclare la variable o (Onglet)
Dim i As Integer 'déclare la variable i (Incrément)

i = 1 'définit la variable i
For Each o In Sheets 'boucle sur tous les onglets du classeur
   o.Name = i 'définit le nom de l'onglet
   i = i + 1 'incrémente i
Next o 'prochain onglet de la boucle
End Sub

 

[miissyou88]

Re : Renommer tous les onglets de 1 à 4000

Coucou !

Merci beaucoup !

C'est ok, ça fonctionne nickel top !

Merci !

 

[job75]

Re : Renommer tous les onglets de 1 à 4000

Bonjour miissyou88, Robert

Si des onglets sont déjà numérotés il y aura problème car 2 onglets ne peuvent avoir le même nom.

Dans ce cas faire 2 boucles :

Sub Macro1()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Name = "µµ" & i
Next
For i = 1 To Sheets.Count
Sheets(i).Name = i
Next
End Sub

A+