Nommer une feuille de calcule

[ttinmarr]

Bonjour,

Je rebondis sur la première question de 150pado:
- "comment nommer une feuille avec le texte d'une cellule de cette meme feuille?"
- la réponse de marina est parfaite:

"Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Name = Range("A1").Value
End Sub

tu remplaces A1 par la cellule qui doit contenir le nom

m@rina"

Savez quelle est la modification à effectuer qd on désire nommer une feuille avec le texte d'une cellule d'une autre feuille de calcule?

Merci bcp d'avance

 

[teodormircea]

Re : Nommer une feuille de calcule

 Sub NS_Change()


Dim WS As Worksheet 
Set WS = ActiveSheet  
WS.Name =  Range("A1").Value 

End Sub

 

[kjin]

Re : Nommer une feuille de calcule

Bonjour,

Savez quelle est la modification à effectuer qd on désire nommer une feuille avec le texte d'une cellule d'une autre feuille de calcul ?

Activesheet.Name = Sheets("lafeuille").Range("lacellule")
A+
kjin

 

[ttinmarr]

Re : Nommer une feuille de calcule

Merci pour vos réponses!

Toutefois, maintenant il me signale une erreur:
"Nom ambigu detecté: Worksheet_SelectionChange"

Je reconnais être un peu paumé...

 

[ttinmarr]

Re : Nommer une feuille de calcule

Pb résolu par "leplot":
Sub Onglets()
'
' Onglets Macro
' Macro enregistrée le 24/03/2009 par
'

'
Sheets("Intervenant n°1").Name = Sheets("Hypothèses").Range("B5").Value
Sheets("Intervenant n°2").Name = Sheets("Hypothèses").Range("C5").Value

End Sub

Merci pour votre aide