Onglet de feuille

[Format]

Bonjour,

Quand je saisi un texte quelconque dans une cellule, je voudrais que ce texte devienne le nom de l'onglet.
Une macro devrait résoudre mon problème.
Merci pour votre aide.

 

[Paritec]

Re : Onglet de feuille

Bonjour Format,
voilà dans la feuille tu mets cela si le cellule c'est B2 autrement tu modifies cells(2,2)
a+
Papou

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = Cells(2, 2)
End Sub

 

[Format]

Re : Onglet de feuille

J'ai copié le premier code dans une feuille puis dans un module, ne fonctionnant pas j'ai fait la même chose avec le second, ça ne fonctionne tjs pas. Merci pour votre aide.

 

[Paritec]

Re : Onglet de feuille

Re bonjour format Le squale
alors comme d'habitude c'est la même refrain !!!
Tu ne joins pas de fichier et après tu n'es pas capable de mettre la macro au bon endroit et tu dis cela ne marche pas!!!
La finalité c'est fait un fichier dis ou sera ta cellule et on fera
a+
papou

 

[Format]

Re : Onglet de feuille

Voilà...
Merci.

 

[Paritec]

Re : Onglet de feuille

Re Tous,
alors dans le fichier joint tapes famille durand maintenant
a+
Papou

 

[Format]

Re : Onglet de feuille

Super, merci.
Et si je veux que cela fonctionne pour toute feuille du classeur sans avoir à recopier le code sur chaque feuille.

 

[Dull]

Re : Onglet de feuille

Salut Format, CC, Papou, le Forum

En l'absence de Papou
Place le code de le Module ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Cells(2, 2) <> "" Then ActiveSheet.Name = Cells(2, 2)
End Sub

Il fonctionnera alors dans toutes les feuilles

Bonne Journée

 

[Format]

Re : Onglet de feuille

Super merci à vous