Renommer les onglets de 1 à ....

Résolu/Fermé

Kenobass Messages postés 2 Date d'inscription lundi 15 décembre 2014 Statut Membre Dernière intervention 15 décembre 2014 - 15 déc. 2014 à 09:05
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 15 déc. 2014 à 11:20

Bonjour,
je souhaite créer une macro qui me permette de renommer les onglets en numérique à partir de 1, et ce à partir du 3e onglet .
(les 2 premiers onglets sont un sommaire et un template, inutile de les renommer dans la macro, çane change jamais).

je m'explique:
1er onglet : "sommaire"
2e onglet : "template"
3e onglet : "1"
4e onglet : "2"
5e onglet : "3"
6e onglet : "4"
....
506e onglet : "504"
etc...

en effet j'ai environ 500 onglets, donc les renommer "à la main" toutes les semaines est plutôt long!
si quelqu'un a une solution, je suis preneur.
merci !
:)

A voir également:

Renommer les onglets de 1 à ....
Renommer plusieurs fichiers en même temps - Guide
Restaurer onglets chrome - Guide
Renommer iphone - Guide
Comment renommer quelqu'un sur instagram - Guide
99 onglets ouverts android - Forum Google Chrome

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
15 déc. 2014 à 09:40

Bonjour,

essaie cela:

Dim i As Integer
For i = 3 To Worksheets.Count
   Worksheets(i).Name = i - 2
  Next i

Kenobass Messages postés 2 Date d'inscription lundi 15 décembre 2014 Statut Membre Dernière intervention 15 décembre 2014
15 déc. 2014 à 10:36

yes!
c'est tout simple, ça marche nickel
merci!

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
15 déc. 2014 à 11:20

ATTENTION

par contre si tu te trouves sur un onglet qui a le même nom que celui que tu veux renommer, il y aura un bug la solution:

renommer avec un nom bidon , Comme ceci

Dim i As Integer
For i = 3 To Worksheets.Count
   Worksheets(i).Name = "MonOnglet" &  i - 2
  Next i

et ensuite renommer comme tu le veux

Discussions similaires

MSDOS - Renommer partiellement plusieurs fichiers

Renommer un contact sur insta

renommer un lien internet

comment changer le nom d'un lien?

Renommer un lien