Nommer une feuille de calcule

T

teodormircea

XLDnaute Occasionnel

• 24 Mars 2009

• #2

Re : Nommer une feuille de calcule

Code:

 Sub NS_Change()


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

End Sub

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 24 Mars 2009

• #3

Re : Nommer une feuille de calcule

Bonjour,

ttinmarr à dit:

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

T

ttinmarr

Guest

• 24 Mars 2009

• #4

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

 

Vote positif 0 Vote négatif

T

ttinmarr

Guest

• 24 Mars 2009

• #5

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

 

Vote positif 0 Vote négatif