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
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
A voir également:
- Probleme excel nom feuille (onglet)
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Si et excel - Guide
- Rouvrir onglet fermé - Guide
- Aller à la ligne excel - Guide
2 réponses
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
30 avril 2009 à 16:42
Bonjour,
Dans l'éditeur Visual Basic, insérer un module (module1 par exemple) puis y coller le code suivant :
Toujours dans l'éditeur, double click sur l'onglet "Sommaire" pour ouvrir le module de la feuille et y coller ce code :
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)
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)
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
30 avril 2009 à 16:56
Merci,
c'est exactement ce que je cherchais
Merci beaucoup Polux31
Bonne fin d'après-midi
c'est exactement ce que je cherchais
Merci beaucoup Polux31
Bonne fin d'après-midi
26 janv. 2010 à 09:06
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
26 janv. 2010 à 12:08
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