renommer des feuilles

[Tail]

bonjour
comment faire pour renommer des feuilles existantes, avec les données des cellules d'une autre feuille.
en fait j'ai des noms dans une feuille ( colonne A) et j'aimerai que les feuilles soient renommées automatiquement avec ces noms
merci

 

[fanfan38]

Re : renommer des feuilles

Bonsoir
Clic, avec le bouton droit de la souris, sur le nom de la feuille et choisir visualiser le code
Copier les lignes ci dessous:
Private Sub Worksheet_Activate()
For i = 1 To Sheets.Count
If Sheets(i).Name = ActiveSheet.Name Then
ActiveSheet.Name = Sheets("Ref").Cells(i, 2).Value
Exit For
End If
Next
End Sub

mettre les noms souhaité dans une feuille nommer "ref" (colonne 2)

A+ François

 

[Tail]

Re : renommer des feuilles

merci
et le faire pour 90 noms ?
merci

 

[ccpapy]

Re : renommer des feuilles

bonjour à tous
c'est le 3ème post que tu ouvres pour toujours le même problème....
tu ne peux pas rester sur le même ?
je t'ai donné une solution dans celui-ci
https://www.excel-downloads.com/threads/nom-de-feuilles.87637/
à+

 

[jeanpierre]

Re : renommer des feuilles

Bonsoir le fil, ccpapy,

Pour une fois, ce n'est pas moi qui le dit...... vrais que c'est ch..... tout ces posts...

Mais bonne année tout de même...

 

[ccpapy]

Re : renommer des feuilles

re,bonsoir
avant de voir ta réponse, je me doutais de son contenu jeanpierre😉
et je ne me suis pas trompé...
cette année, c'est moi qui m'emporte😛
bonne année
à+

 

[Tail]

Re : renommer des feuilles

re bonjour
comment faire pour creer une feuille et la nommée par rapport à un nom qui viens d'etre tapé dans une autre feuillle,puis en copier une autre et la collée dans celle qui viens d'etre créée
merci

 

[Tail]

Re : renommer des feuilles

bonjour
j'ai ce code pour creer la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Selection = "" Then Exit Sub
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Target
End If
Sheets("base").Activate
End Sub
mais ensuite j'aimerai copier le contenu d'une autre et le colle rdans la nouvelle créée
merci de votre aide

 

[Tail]

Re : renommer des feuilles et copier coller

comment faire un copier coller d'une autre feuille sur la nouvelle créée avec ce code.

merci

bonjour
j'ai ce code pour creer la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Selection = "" Then Exit Sub
Dim Ws As Worksheet
For Each Ws In Worksheets
If Ws.Name = Target Then MsgBox "Ce nom de feuille existe déjà !": Exit Sub
Next Ws
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = Target
End If
Sheets("base").Activate
End Sub
mais ensuite j'aimerai copier le contenu d'une autre et le colle rdans la nouvelle créée
merci de votre aide