ajouter une feuille

[zine pef]

Bonjour forum

Comment puit-je faire pour ajouter en copier la premier feuille en cliquant sur un bouton et la rennomer

remarque dans userform il ya un boutton et un textbox pour rennomer la nouvelle feuille

merci

 

[Pierrot93]

Re : ajouter une feuille

Bonjour,

pour copier :

Sheets(1).Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "mafeuille"

pour en rajouter une :

Sheets.Add(after:=Sheets(Sheets.Count)).Name = "mafeuille2"

bonne journée
@+

 

[fhoest]

Re : ajouter une feuille

bonjour,
voici le code que tu pouvez enregistrer en utilisant l'enregistreur de macro:

Sub copie()
    Sheets("Feuil1").Select
    Cells.Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Cells.Select
    ActiveSheet.Paste
    Sheets(Sheets.Count).Name = "test"
End Sub

A+

 

[zine pef]

Re : ajouter une feuille

Merci Mrs pour votre aide