Nommer une feuille

[richardgeere44]

Bonjour à tous les membres,

je voudrais que la feuille excel sur laquelle je travaille reprenne le nom automatiquement d'une cellule définie.
Je m'explique davantage : Sur la feuille 1, en cellule A1, je rentre un nom (exemple: Arnaud). Je voudrais que cette feuille se nomme automatiquement "Arnaud" sans manipulation de ma part. Sur la feuille 2, je rentre un nouveau nom en A1 (Grégory), je voudrais que la feuille 2 se renomme "Grégory" automatiquement.
Merci d'avance pour votre aide.

 

[charette63]

Bonsoir

a placer dans chaque feuilles

Nom onglet = valeur cellule

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

 

[richardgeere44]

Re : Re: Nommer une feuille

Merci mais où je place ce code???

 

[charette63]

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à

 

[JCGL]

Re : Nommer une feuille

Bonjour à tous,

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

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

A + à tous

 

[richardgeere44]

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.

 

[JCGL]

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

 

[richardgeere44]

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.

 

[JCGL]

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

Une gestion d'erreur si rien en A1

Tu peux faire tes essais sur mon fichier.

 

[charette63]

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+

 

[richardgeere44]

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.

 

[JCGL]

Re : Nommer une feuille

Bonjour à tous,

Ton fichier en retour
Il faut activer les macros

A + à tous

 

[richardgeere44]

Re : Nommer une feuille

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

 

[charette63]

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+

 

[JCGL]

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