Renommer un ou plusieurs onglet d'après 1 ou plusieurs cellules

Fermé
steph_gdp Messages postés 32 Date d'inscription jeudi 10 janvier 2013 Statut Membre Dernière intervention 6 mars 2013 - 7 févr. 2013 à 22:25
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 8 févr. 2013 à 17:34
Bonjour,

je voudrais par exemple sur feuille 1

A1 : nom de l'onglet feuille 5
A2 nom de l'onglet 6
A3: nom de l'onglet 7
A4: nom de l'onglet 8

et renommer les onglets d'après ces cellules, merci
A voir également:

2 réponses

gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
Modifié par gbinforme le 7/02/2013 à 23:22
Bonjour,

Avec cette macro événementielle à placer dans la feuille concernée :
Private Sub Worksheet_Change(ByVal sel As Range) 
If Not Intersect(sel, [A1:A4]) Is Nothing Then 
    Sheets(sel.Row + 4).Name = sel.Value 
End If 
End Sub 

Le nom de la feuille est affecté si modification de la cellule concernée (F2+entrée)
Toujours zen
La perfection est atteinte, non pas lorsqu'il n'y a plus rien à ajouter, mais lorsqu'il n'y a plus rien à retirer. Antoine de Saint-Exupéry
0
steph_gdp Messages postés 32 Date d'inscription jeudi 10 janvier 2013 Statut Membre Dernière intervention 6 mars 2013 1
8 févr. 2013 à 10:09
désolé j'y arrive pas, j'ai fait alt f11 inserer module, j'ai du zapper quelque chose, quel est la facon de l'inserer ta macro?

Merci
0
gbinforme Messages postés 14939 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 657
8 févr. 2013 à 17:34
Une macro événementielle ne se met pas dans un module mais dans la feuille concernée comme je te l'avais mis (ou éventuellement ThisWorkbook) : dans ton cas, apparemment par exemple sur feuille 1 .
0