Probleme excel nom feuille (onglet)

Résolu/Fermé

robin12 Messages postés 24 Date d'inscription lundi 28 août 2006 Statut Membre Dernière intervention 8 novembre 2010 - 30 avril 2009 à 16:23
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 26 janv. 2010 à 12:08

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

A voir également:

Probleme excel nom feuille (onglet)
Liste déroulante excel - Guide
Feuille de pointage excel - Télécharger - Tableur
Formule excel - Guide
Nom de l'adresse ✓ - Forum Réseaux sociaux
Si et excel - Guide

2 réponses

Réponse 1 / 2

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
30 avril 2009 à 16:42

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)

tasson
26 janv. 2010 à 09:06

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

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > tasson
26 janv. 2010 à 12:08

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

Réponse 2 / 2

robin12 Messages postés 24 Date d'inscription lundi 28 août 2006 Statut Membre Dernière intervention 8 novembre 2010 2
30 avril 2009 à 16:56

Merci,

c'est exactement ce que je cherchais

Merci beaucoup Polux31

Bonne fin d'après-midi

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

Nom d’adresse

Trouver un nom avec une adresse

Comment trouver un numéro à partir du nom et prénom

Discussions similaires

Newsletters