nouvelle feuille

[chilo]

bonjour le forum

je souhaite creer une nouvelle feuille qui aura pour nom la valeur de b1

merci par avance

 

[Staple1600]

Re : nouvelle feuille

Bonjour

A adapter

Sub Macro1()
Dim nf As Worksheet
Set nf = Sheets.Add
nf.Name = Feuil1.[B1]
End Sub

Ou en plus court

'ici valeur de B1 de la feuille _
dont le codename* est Feuil1   (Name)  et non pas Name
Sheets.Add.Name = Feuil1.[B1].Text

 

[job75]

Re : nouvelle feuille

Encore un nouveau post...!
Je vous signale chilo que le fichier joint n'est pas le dernier que je vous ai envoyé sur "Transfert une feuille".

 

[chilo]

Re : nouvelle feuille

bonsoir job75

le dernier fonctionnant bien je n'ai pas voulu le toucher pour le préserver
une nouvelle merci

 

[job75]

Re : nouvelle feuille

Il existe une règle implicite sur ce forum chilo, c'est que quand un problème est réglé, on le dit. Or vous aviez encore un problème sur le fil "Transfert une feuille" et il n'y a aucune réponse à mon dernier message. A+

 

[chilo]

Re : nouvelle feuille

bonjour
j'ai essayé le premier evenement donne à une feuille le n° 1 et après cela me donne un message d'erreur N° 104

alors que je souhaite que la feuille créée prenne la valeur du de la cellule b1

merci par avance

 

[chilo]

Re : nouvelle feuille

bonsoir
dans ma recherche j'ai trouve cette solution
Sub renommer()
nom = Range("b1").Value
ActiveSheet.Name = nom
end sub
le probleme que je rencontre c'est qu'il change le nom alors je souhaite qu'il ajoute le nom une nouvelle feuille ave c la valeur nouvelle