Renommer automatiquement le nom de +sieurs onglets sur excel
Tyrese3
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je cherche de l'aide concernant une macro qui puisse me renommer automatiquement (en cliquant sur un bouton) le nom de mes onglets.
Voici quelques exemples
a) Exemple n°1 Exemple n°2
Avant Après Avant Après
09-12 09-13 09-13 09-14
10-12 10-13 10-13 10-14
11-12 11-13 11-13 11-14
12-12 12-13 12-13 12-14
01-13 01-14 01-14 01-15
02-13 02-14 02-14 02-15
03-13 03-14 03-14 03-15
04-13 04-14 04-14 04-15
05-13 05-14 05-14 05-15
06-13 06-14 06-14 06-15
07-13 07-14 07-14 07-15
08-13 08-14 08-14 08-15
Normalement, je fonctionnerai toujours avec le même nombre d'onglets à modifier c'est à dire 12 comme dans l'exemple ci dessous. Mais je pourrais avoir un autre fichier excel ou j'ai plus de 12 onglets à modifier mais fonctionnant sur ce principe de deux années à cheval.
Je recherche également une autre macro ou sur la même macro qui puisse également me modifier les onglets s'ils se présentent sous cette forme.
b) Exemple n°1 Exemple n°2 Exemple n°3
Avant Après Avant Après Avant Après
1TR-12 1TR-13 1TR-13 1TR-14 1TR-14 1TR-15
2TR-12 2TR-13 2TR-13 2TR-14 2TR-14 2TR-15
3TR-12 3TR-13 3TR-13 3TR-14 3TR-14 3TR-15
4TR-12 4TR-13 4TR-13 4TR-14 4TR-14 4TR-15
J'aurai dans chacun des 2 cas:
1er onglet nommé "Maj_Onglets"
2ème onglet nommée "art"
Ensuite tous mes onglets nommés à cheval sur 2 années (voir a ci-dessus) ou les 4 trimestres de l'année (voir b ci-dessus). Seul ces onglets seront à modifier.
Je vous remercie d'avance pour votre aide.
Voir exemple excel ci-joint:
https://www.cjoint.com/?3GxaktGvWKf
Je cherche de l'aide concernant une macro qui puisse me renommer automatiquement (en cliquant sur un bouton) le nom de mes onglets.
Voici quelques exemples
a) Exemple n°1 Exemple n°2
Avant Après Avant Après
09-12 09-13 09-13 09-14
10-12 10-13 10-13 10-14
11-12 11-13 11-13 11-14
12-12 12-13 12-13 12-14
01-13 01-14 01-14 01-15
02-13 02-14 02-14 02-15
03-13 03-14 03-14 03-15
04-13 04-14 04-14 04-15
05-13 05-14 05-14 05-15
06-13 06-14 06-14 06-15
07-13 07-14 07-14 07-15
08-13 08-14 08-14 08-15
Normalement, je fonctionnerai toujours avec le même nombre d'onglets à modifier c'est à dire 12 comme dans l'exemple ci dessous. Mais je pourrais avoir un autre fichier excel ou j'ai plus de 12 onglets à modifier mais fonctionnant sur ce principe de deux années à cheval.
Je recherche également une autre macro ou sur la même macro qui puisse également me modifier les onglets s'ils se présentent sous cette forme.
b) Exemple n°1 Exemple n°2 Exemple n°3
Avant Après Avant Après Avant Après
1TR-12 1TR-13 1TR-13 1TR-14 1TR-14 1TR-15
2TR-12 2TR-13 2TR-13 2TR-14 2TR-14 2TR-15
3TR-12 3TR-13 3TR-13 3TR-14 3TR-14 3TR-15
4TR-12 4TR-13 4TR-13 4TR-14 4TR-14 4TR-15
J'aurai dans chacun des 2 cas:
1er onglet nommé "Maj_Onglets"
2ème onglet nommée "art"
Ensuite tous mes onglets nommés à cheval sur 2 années (voir a ci-dessus) ou les 4 trimestres de l'année (voir b ci-dessus). Seul ces onglets seront à modifier.
Je vous remercie d'avance pour votre aide.
Voir exemple excel ci-joint:
https://www.cjoint.com/?3GxaktGvWKf
A voir également:
- Renommer plusieurs feuilles excel
- Renommer plusieurs fichiers en même temps - Guide
- Liste déroulante excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Word et excel gratuit - Guide
- Regrouper plusieurs feuilles excel en une seule - Guide
4 réponses
Bonjour,
si tu es sûr que tes feuilles soient toujours dans le bon ordre :
Renomme toutes les feuilles de la forme abc-00 en ajoutant 1.
Sinon demain on te fera un truc plus sécurisé avec la liste avant-après et la possibilité de restaurer.
eric
si tu es sûr que tes feuilles soient toujours dans le bon ordre :
Sub renomme_onglet()
Dim i As Long, nom, noms() As String
For i = Worksheets.Count To 1 Step -1
nom = Split(Worksheets(i).Name, "-")
If UBound(nom) = 1 Then
If IsNumeric(nom(1)) Then
Worksheets(i).Name = nom(0) & "-" & nom(1) + 1
End If
End If
Next i
End Sub
Renomme toutes les feuilles de la forme abc-00 en ajoutant 1.
Sinon demain on te fera un truc plus sécurisé avec la liste avant-après et la possibilité de restaurer.
eric