Nommer une feuille

C

charette63

XLDnaute Occasionnel

• 18 Mai 2011

• #2

Bonsoir

a placer dans chaque feuilles

Nom onglet = valeur cellule

Code:

Private Sub Worksheet_Activate()
ActiveSheet.Name = Range("a1").Value
End Sub

 

Vote positif 0 Vote négatif

R

richardgeere44

XLDnaute Nouveau

• 18 Mai 2011

• #3

Re : Re: Nommer une feuille

Merci mais où je place ce code???

 

Vote positif 0 Vote négatif

C

charette63

XLDnaute Occasionnel

• 18 Mai 2011

• #4

tu ouvres l'éditeur vba (dans la barre d'outil exel-->outil-->macro-->visuel basic editor)

tu doubles clic sur la(es) feuille(s) (Feuil1,...) qui t’intéressent, une page s'ouvre et tu y colles le code

voilà

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Mai 2011

• #5

Re : Nommer une feuille

Bonjour à tous,

Pour reprendre l'dée de Charette et dans le ThisWorkBook :

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.Name = Range("A1").Value
End Sub

A + à tous

 

Pièces jointes

• modulesthisworkbookaw9.jpg

  8.3 KB · Affichages: 90
• modulesthisworkbookaw9.jpg

  8.3 KB · Affichages: 89
• Nom Feuille Cellule A1.xls

  23 KB · Affichages: 64

Dernière édition: 18 Mai 2011

Vote positif 0 Vote négatif

R

richardgeere44

XLDnaute Nouveau

• 18 Mai 2011

• #6

Re : Nommer une feuille

Merci pour vos réponses mais je suis débutant sous excel. Je n'ai pas pas de barre "outil" mais j'en ai une "développeur" ou alors je ne la trouve pas. Pouvez-vous être plus précis dans vos descriptions (au clic près). Merci beaucoup beaucoup beaucoup.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Mai 2011

• #7

Re : Nommer une feuille

B+

Développeur
Click à gauche sur Visual Basic
Ouverture sur le fichier
Coller le code dans le ThisWorkBook

Raccourci pour ouvrir le VBE : Alt F11

A + à tous

 

Vote positif 0 Vote négatif

R

richardgeere44

XLDnaute Nouveau

• 18 Mai 2011

• #8

Re : Nommer une feuille

Je dois vraiment être nul. Je n'y arrive pas. J'ai bien cliqué sur "thisworKbook". J'ai copié le code. Mais après je fais quoi pour que ça marche? Merci encore.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Mai 2011

• #9

Re : Nommer une feuille

Bonjour à tous,

Tu mets des noms en A1 de chaque feuille et le nom de l'onglet prend ce nom quand tu actives cet onglet.

Modifie mon code avec :

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
ActiveSheet.Name = Range("A1").Value
End Sub

Cliquez pour agrandir...

Une gestion d'erreur si rien en A1

Tu peux faire tes essais sur mon fichier.

 

Vote positif 0 Vote négatif

C

charette63

XLDnaute Occasionnel

• 18 Mai 2011

• #10

il faut fermer et reouvrir ton dossier (n'oublie pas d'enregistrer ta macro (disquette sur le dessus de la page visal basic)

c'est une 😛rivate Sub Workbook_SheetActivate ,donc à l'activation de la feuille

a+

 

Vote positif 0 Vote négatif

R

richardgeere44

XLDnaute Nouveau

• 18 Mai 2011

• #11

Re : Nommer une feuille

Le plus simple c'est d'envoyer mon fichier en PJ. Ce que je veux, c'est modifier le nom de la feuille en fonction de la cellule b6. Merci pour votre aide.

 

Pièces jointes

• Haies N1.xlsx

  13.8 KB · Affichages: 45

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 18 Mai 2011

• #12

Re : Nommer une feuille

Bonjour à tous,

Ton fichier en retour
Il faut activer les macros

A + à tous

 

Pièces jointes

• Haies N1.xlsm

  19.2 KB · Affichages: 48

Vote positif 0 Vote négatif

R

richardgeere44

XLDnaute Nouveau

• 18 Mai 2011

• #13

Re : Nommer une feuille

Super. Je vois bien le code dans "thisworkbook" mais que fais-tu ensuite? Comment activer les macros? Merci encore.

 

Vote positif 0 Vote négatif

C

charette63

XLDnaute Occasionnel

• 18 Mai 2011

• #14

Re: Re : Nommer une feuille

je t'avais écrit ceci, as tu essayé?

il faut fermer et reouvrir ton dossier (n'oublie pas d'enregistrer ta macro (disquette sur le dessus de la page visal basic)

c'est une 😛rivate Sub Workbook_SheetActivate ,donc à l'activation de la feuille

a+

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Mai 2011

• #15

Re : Nommer une feuille

Bonjour à tous,

Change le nom en B6 d'une des feuilles et vérifie le nom dans l'onglet.
Tu verras tout de suite si les macros sont activées : le nom doit changer à l'activation de la feuille

A+ à tous

 

Vote positif 0 Vote négatif