valeur cellule = nom feuille

[David]

Bien le bonjour chers forumeurs
Comme le dit ce sujet, quel est le petit bout de code qui me permet de :

1)ajouter une feuille puis la nommer(sans problème)
2)Que la cellule A2 par exemple est comme valeur,le nom de la feuille(moins facile)
ex : nom de la feuille(titi)
la valeur mise en a2 après création doit-être titi
Merci

 

[@+Thierry]

Bonsoir David

Si tu as une macro qui génère la Feuille, ce n'est pas compliqué d'y rajouter ce que tu veux :

Sub CreatingSheet()
Dim TheName As String
TheName = "Titi"

Worksheets.Add after:=Worksheets(Worksheets.Count)
With Worksheets(Worksheets.Count)
.Name = TheName
.Range("A2") = TheName
End With

End Sub


Ou encore ce second exemple qui mettra le nom de chaque feuille en A2...
Sub NameOfAllSheetsInA2()
Dim WS As Worksheet

For Each WS In Worksheets
With WS
.Range("A2") = .Name
End With
Next
End Sub

Bonne Soirée
@+Thierry

 

[David]

Salut Thierry,

Merci pour la rapidité de ta réponse.
Ca me va tout à fait.
A +