ajouter une feuille

zine pef · 26 Avril 2011

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 · 26 Avril 2011

Re : ajouter une feuille

Bonjour,

pour copier :

Code:

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

pour en rajouter une :

Code:

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

bonne journée
@+

fhoest · 26 Avril 2011

Re : ajouter une feuille

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

Code:

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 · 26 Avril 2011

Re : ajouter une feuille

Merci Mrs pour votre aide

ajouter une feuille

zine pef

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

fhoest

XLDnaute Accro

zine pef

XLDnaute Occasionnel

Discussions similaires

ajouter une feuille

zine pef

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

fhoest

XLDnaute Accro

zine pef

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency