Nommer feuille

[dephazz]

Bonjour,
Voici mon problème, je crée un planning hebdomadaire pour l'année avec pour chaque feuille successive, un nom de feuille correspondant à la semaine concernée.
Je souhaite que le nom de la feuille soit lié à la valeur d'une cellule donnée de cette même feuille.
Ex: si en A1 de la feuille 1 est écrit "SEM 41", alors la feuille se nomme automatiquement "SEM 41" et si la valeur de A1 change, le nom de la feuille aussi.
La valeur inscrite dans la cellule A1 de la feuille 2 déterminera le nom de cette feuille 2 et ainsi de suite pour les nouvelles feuilles qui seront crées ou modifiées en cours d'année.
Merci pour votre aide.

 

[Hulk]

Re : Nommer feuille

Hello,

Plutot simple, mais c'est vrai que si tu ne connais pas les macros...

Places ce code dans les feuilles concernées (Alt+F11)...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ActiveSheet.Name = [A1]

End Sub

Cdt, Hulk.

 

[joss56]

Re : Nommer feuille

Bonjour à tous,

Regarde ce fichier et dis nous
A+

Jocelyn

 

[joss56]

Re : Nommer feuille

Pardon, Hulk...tu as été plus rapide (...et plus simple aussi!) Bonne journée

 

[job75]

Re : Nommer feuille

Bonjour le fil, le forum,

Avec une seule macro, dans ThisWorkbook :

Private Sub WorkBook_SheetChange(ByVal Sh As Object, ByVal Source As Range)
On Error Resume Next 'au cas où une autre feuille porte déjà le nouveau nom, ou s'il y a des caractères interdits...
Sh.Name = Sh.Range("A1")
If Err Then MsgBox "Ce nom n'est pas autorisé...", 48
End Sub

A+

 

[Hulk]

Re : Nommer feuille

Re,

De rien Joss ça arrive souvent.

Excact Job, j'allais le proposer...

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
    Dim Wb As Workbook
    Dim Ws As Worksheet

    On Error Resume Next
    
    For Each Wb In Application.Workbooks
        For Each Ws In Wb.Worksheets
            Ws.Name = Ws.[A1]
        Next Ws
    Next Wb

End Sub

Cdt, Hulk.

EDIT : Je précise quand même que le code à Job ou celui que je propose, sont à placer dans le code du ThisWorkbook ! (Alt+F11 et double-click sur ThisWorkbook, là tu mets le code)... Bye.

 

[abc]

Re : Nommer feuille

Bonjour,
Il y surement plus facile mais c'est un début.
Le code est a placer dans chaque feuille.
Teste et dis quoi.
Dès que tu ecris en A1 l'onglet se nomme.
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Name = Range("A1").Value
End Sub
A +

 

[job75]

Re : Nommer feuille

Re,

@ Hulk 🙂

Avec une macro SelectionChange ça ne marche pas bien si dans menu-Outils-Options-Modification on a décoché la case "Déplacer la sélection après validation".

Edit : j'avais pas testé, si, ça marche, je découvre, merci à toi...

A+

 

[dephazz]

Re : Nommer feuille

Merci pour vos réponses.
Faut que je regarde tout çà
😉

 

[Hulk]

Re : Nommer feuille

Re,

Ok merci Job, je note et modifie la chose 😀

Cdt, Hulk.

 

[job75]

Re : Nommer feuille

Re Hulk,

Re,

Ok merci Job, je note et modifie la chose 😀

Cdt, Hulk.

Pas la peine, voir l'Edit de mon dernier post 🙂

A+

 

[dephazz]

Re : Nommer feuille

Cà marche !
J'ai pris la formule proposée par job75.
Les feuilles se renomment à chaque modification ou création dans un même classeur.
Merci à tous
🙂