Nom d'Onglet

[Porcaro]

Bonjour à tous,

J'ai fait une recherche sur onglet et je trouve souvent des demandes sur comment insérer un nom d'onglet dans une feuille. Moi au contraire je voudrais faire l'inverse.

Est il possible et si oui comment, de changer automatiquement un nom d'onglet en fonction d'une cellule de feuille excel. Je m'explique: j'ai plusieurs onglets et j'aimerais qu'automatiquement lorsque par exemple dans la cellule A6 de la page je rentre un nom, ce nom change directement le nom de l'onglet de la page ou la cellule A6 est mise.

Me suis je bien fait comprendre? Je reste à disposition.

Merci d'avance.

 

[Arnaud]

salut,

écris ça dans le code du thisworkbook.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Address = "$A$6" And Target.Value <> "" Then ActiveSheet.Name = Target.Value

End Sub

 

[Porcaro]

Merci Arnaud pour ta réponse rapide mais soit il y a quelque chose que je ne fais pas bien soit ca ne fonctionne pas.

Pour modifier le code je clic bouton droit souris sur l'onglet et je fais "visualiser le code". Ensuite je vais sur VBA project et je descend sur "this workbook". Je copie ce que tu me donnes et je le colle en dessous de ce qui existe déjà c'est à dire "Private Sub Workbook_Open() End Sub".

C'est bien cela non? Et après il faut faire quoi car même en sauvegardant, refermant et ouvrant le dossier le nom de mes onglets n'ont pas changé.

Merci d'avance.

 

[Arnaud]

re,

c surement normal. le code, moi je l'ai mis dans l'évènement Workbook_SheetChange ce qui fais que dés que tu modifira la celule A6 cela changera le nom mais si le nom y été avant que tu mette le code c normal c normal car l'évènement n'a jamais été appelé.
( au passage, le mieux serais de mettre

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$6" And Target.Value <> "" Then ActiveSheet.Name = Target.Value
End Sub

car la cela le fais quelque soit la feuille donc si tu ne veux que ça le fasse que pour une feuille, met ce code dans la feuille voulut ).

sinon pour le fait que cela ne change pas quand tu ne modifie pas, tu peut rajouter :

Private Sub Workbook_Open()
If ActiveWorkbook.Sheets(1).Range("A6").Value <> "" Then ActiveWorkbook.Sheets(1).Name = ActiveWorkbook.Sheets(1).Range("A6").Value
End Sub

tjs dans le thisworkbook.

 

[Porcaro]

Désolé Arnaud mais je n'arrive toujours pas à faire fonctionner ta requête. Je reste quand même à l'écoute.

Encore merci.

 

[Gérard DEZAMIS]

Bonjour Arnaud et Porcaro

Je crois qu'il faut mettre Rang("A6").select ou .activate car la cellule A6 doit a nouveau etre selectionnée pour que l'onglet change de valeur.

@+
GD

 

[Arnaud]

re,

je te joint un ex.
si c pas ça c que g pas compri la question alors.

 

[Porcaro]

Encore merci mais ca ne fonctionne pas comme je le souhaite. Je joins le même fichier avec un petit commentaire afin de voir si on se comprends bien

A plus.

 

[Porcaro]

Merci Gérard pour la réponse mais hélas rien de tout cela ne fonctionne... mais je suis patient .

A bientot.

 

[Gérard DEZAMIS]

Re Porcaro et Arnaud

Dans une macro lorsque du texte est précédé de ' et qu'il est écrit en vert c'est une remarque qui ne déclenche aucune action. Simple commentaire .

J'ai modifié et ça fonctionne

Patience est mère de ....



@+
GD

 

[Gérard DEZAMIS]

Re Porcaro

C'est la colère qui est mère de tous les vices ....

Avec du temps et de la patience, les feuilles de mûrier se transforment en robe de soie et l'herbe devient lait dit un proverbe chinois.

Laisse tomber VBA et lance toi dans la couture et l'élevage !

Bon courage
!

@+
GD

 

[Tapsoba]

Salut à tous le Forum

Permettez-moi de reveillez ce fil qui je l'espère a suffisamment dormis.

Par une recherche sur le Forum XLD je suis tombé sur ce fil qui apporte en partie une solution à mon problème. J'ai essayé de faire des modifications dans code vba mais sans succès. Je suis nul en vba. A lors merci de venir à mon aide.

Nom onglet = Cell "A6" . Je voudrais que la solution proposée dans ce fil soit appliquée à toutes les feuilles (actives et non actives) de mon classeur qui en contient plus d'une centaine.

L'exemple ci joint contient une macro évènementielle mais qui ne marche qu'avec la première feuille. Je voudrais que ça marche avec toutes les feuilles de mon classeur.

Merci et bonne soirée à tous et toutes