Renommer automatiquement une feuille d'après une cellule

Question

Bonjour, 
Je chercher à renommer automatiquement une feuille d'après une cellule qui se trouve sur cette feuille en C6. J'ai une centaine de feuilles sur le même classeur que je voudrais renommer automatiquement, à chaque fois d'après la cellule C6 dont le texte change d'une feuille à l'autre.
Je n'y connais rien en macro, ni VBE, etc. et si cette formule existe elle me serait d'une grande aide !
Je travaille sur Excel 2011 en anglais, version 14.6.6, sur Mac.
Merci !


Configuration: Mac OS X (10.11.5) / Chrome 54.0.2840.98

Zoul67 · Answer

Bonjour,

Impossible par formule, mais bien par macro...
Fais Alt+F11, dans l'explorateur de projet VBA (à gauche), insère un module et colle :
Sub renommage()
Dim sh As Worksheet
For Each sh In Worksheets
sh.Name = sh.Range("C6")
Next
End Sub 

Place ton curseur dans ce code et appuie sur le bouton Play.

A+

The_boss_68 · Answer

Bonsoir,

Essaye de placer cette macro dans ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
'si c6 est renseigné manuellement
On Error Resume Next
Sh.Name = Sh.[c6]
End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
'si c6 contient une formule
On Error Resume Next
Sh.Name = Sh.[c6]
End Sub

Slts

The_boss_68 · Answer

Bonsoir 
Pour qu'un contributeur puisse t'aider il serait souhaitable que tu mettes un fichier anonymisé à la disposition  

1) Tu vas dans https://www.cjoint.com/ 
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier 
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint] 
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien 
en bleu souligné ; tu le sélectionnes et tu fais "Copier" 
5) Tu reviens dans ta discussion sur commencamarche , et dans ton message de réponse tu fais "Coller". 
Slts

Zoul67 · Answer

Bonjour,
C'est bien ce que je pensais... Ta question ne correspond pas tout à fait à ton besoin (p.ex. il n'était pas question initialement de dupliquer les feuilles, je pensais que toutes étaient déjà créées).
Je pense que tu as ta feuille "SEM" qui contient toutes les informations. Mon idée est de :
- dans un premier temps, créer un onglet "Modèle" dont les formules conviennent quelle que soit la valeur dans la cellule C6 ;
- ensuite dupliquer par macro cet onglet "Modèle" et donner le nom approprié à chaque onglet et à renseigner la cellule C6.
Voila ma proposition : https://www.cjoint.com/c/FLhlmI3iMrJ
Il te suffit d'appuyer sur le bouton pour créer tous les onglets.
A+

Renommer automatiquement une feuille d'après une cellule

4 réponses

Discussions similaires

Newsletters