Nommer feuille

Hulk

XLDnaute Barbatruc

• 11 Novembre 2009

• #2

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)...

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ActiveSheet.Name = [A1]

End Sub

Cdt, Hulk.

 

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 11 Novembre 2009

• #3

Re : Nommer feuille

Bonjour à tous,

Regarde ce fichier et dis nous
A+

Jocelyn

 

Pièces jointes

• NommerFeuilles.xls

  26.5 KB · Affichages: 93

Vote positif 0 Vote négatif

J

joss56

XLDnaute Accro

• 11 Novembre 2009

• #4

Re : Nommer feuille

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Novembre 2009

• #5

Re : Nommer feuille

Bonjour le fil, le forum,

Avec une seule macro, dans ThisWorkbook :

Code:

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+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 11 Novembre 2009

• #6

Re : Nommer feuille

Re,

De rien Joss ça arrive souvent.

Excact Job, j'allais le proposer...

Code:

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.

 

Dernière édition: 11 Novembre 2009

Vote positif 0 Vote négatif

A

abc

XLDnaute Impliqué

• 11 Novembre 2009

• #7

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 +

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Novembre 2009

• #8

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+

 

Dernière édition: 11 Novembre 2009

Vote positif 0 Vote négatif

D

dephazz

Guest

• 11 Novembre 2009

• #9

Re : Nommer feuille

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

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 11 Novembre 2009

• #10

Re : Nommer feuille

Re,

Ok merci Job, je note et modifie la chose 😀

Cdt, Hulk.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Novembre 2009

• #11

Re : Nommer feuille

Re Hulk,

Hulk à dit:

Re,

Ok merci Job, je note et modifie la chose 😀

Cdt, Hulk.

Cliquez pour agrandir...

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

A+

 

Vote positif 0 Vote négatif

D

dephazz

Guest

• 11 Novembre 2009

• #12

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
🙂

 

Vote positif 0 Vote négatif