Sélectionner la dernière feuille

[christian.bedere]

Bonjour à vous tous

Comment pourrais-je sélectionner par VBA la dernière feuille créée et la copier automatiquement à la suite des autres, sachant que je dois créer 52 onglets à la suite.
Merci pour votre aide
Christian

 

[Darnel]

Re : Sélectionner la dernière feuille

Salut


Alors après recherche dans aide vba je te propose :

une macro dans module avec le code suivant :

Sub nouvelle_feuille()
Sheets.Add Count:=52
End Sub

et dans thisworkbook, tu mets:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Sh.Move After:=Sheets(Sheets.Count)
End Sub

execute la macro et oh miracle, 52 nouvelles feuilles dans l'ordre de 1 à 55, puisuqu'il y en a 3 au départ


j'espère que ca ira

 

[christian.bedere]

Re : Sélectionner la dernière feuille

salut Darnel

merci pour ton aide, comme tu dis, un miracle... genial
j'avais trouvé ceci sur google :

Sheets(ThisWorkbook.Sheets.Count).Copy After:=Sheets(ThisWorkbook.Sheets.Count)
et çà marche aussi bien

encore merci et boone journée