Probleme excel nom feuille (onglet) [Résolu/Fermé]

Signaler
Messages postés
24
Date d'inscription
lundi 28 août 2006
Statut
Membre
Dernière intervention
8 novembre 2010
-
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
-
Bonjour à tous,

je refais appel à vous car j'ai un soucis avec excel.

Je souhaiterai faire 2 choses mais je suis vraiment bloqué:

- Dans une 1er temps, j'aimerai afficher tous les noms des onglets de mon classeur dans une feuille "Sommaire" (déjà créer) en colonne.

- Ensuite, j'aimerai que quand je modifie le nom d'une cellule de la feuille "Sommaire" cela modifie en même temps le nom de l'onglet correspondant.

Exemple:

A

janvier
février
mars



ONGLET
--------------------------------------------
janvier février mars




A

janvier
février
avril <-- lorsque je modifie la valeur de la cellule A3



ONGLET
--------------------------------------------
janvier février avril <-- je modifie le nom de l'onglet correspondant




J'ai parcouru pas mal de forum mais je sèche.


Si quelqu'un connait la solution, je suis preneur

Merci

2 réponses

Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 147
Bonjour,

Dans l'éditeur Visual Basic, insérer un module (module1 par exemple) puis y coller le code suivant :

Option Explicit

Sub InitSommaire()
Dim onglet
Dim i As Integer   'N° de ligne

    '1ère ligne à renseigner, la 2ème ici. 
    i = 2
    For Each onglet In Worksheets
        If onglet.Name <> "Sommaire" Then
           'Colonne B ici.
            Worksheets("Sommaire").Range("B" & i).Value = onglet.Name
            i = i + 1
        End If
    Next onglet

End Sub


Toujours dans l'éditeur, double click sur l'onglet "Sommaire" pour ouvrir le module de la feuille et y coller ce code :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer   'N° de ligne
Dim onglet

    '1ère ligne à renseigner, la 2ème ici. 
    i = 2
    For Each onglet In Worksheets
        If onglet.Name <> "Sommaire" Then
            onglet.Name = Worksheets("Sommaire").Range("B" & i).Value
            i = i + 1
        End If
    Next onglet

End Sub


Il faut bien sûr adapter les colonnes et lignes en fonction de la configuration de la feuille "Sommaire".

Revenir sur Excel et faire "Exécuter macro", choisir "InitSommaire" puis "Exécuter".

En changeant le nom d'un onglet dans la feuille "Sommaire", on change le nom de l'onglet.

;o)
bonjour
cela fait un moment que je suis vos aventure excel sur ce forum et j'ai moi meme un probleme aujourd'hui
Je souhaiterai changer le titre de l'onglet d'une feuille en fonction d'une liste de noms sur une autre feuille. Si vous pouviez m'aider je vous en serai reconnaissant
Merci et a bientot
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 147 > tasson
Bonjour,

Le problème ne peut pas être résolu avec le code proposé un peu plus haut ?

Il me faudrait un peu plus de précision. Une liste de nom c'est assez vague !!!

Merci
Messages postés
24
Date d'inscription
lundi 28 août 2006
Statut
Membre
Dernière intervention
8 novembre 2010
2
Merci,

c'est exactement ce que je cherchais

Merci beaucoup Polux31

Bonne fin d'après-midi