XL 2010 Renomer copie de feuilles multiple

ascal44

XLDnaute Occasionnel
Bonjour à tous ,

J'ai un classeur , sur lequel j'ai une macro pour copier un nombre de feuilles multiple. Ce peut être une centaine de feuilles .
La feuille copiée et nommée " 1 ". L'idée serait de nommer chaque feuilles copiées avec l'incrémentation : 2 , 3, 4 ,5 etc ....

Voici le code de ma macro :

VB:
Sub CopierFeuilleMultiple()
Dim n As Integer
Dim i As Integer
On Error Resume Next

    n = InputBox("Combien de copies voulez-vous créer?")

    If n > 0 Then
        For i = 1 To n
            ActiveSheet.Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
        Next
    End If

End Sub

Merci par avance pour votre aide
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Ascal,
Peut être de cette façon :
VB:
Sub CopierFeuilleMultiple()
Dim n As Integer, i As Integer
On Error Resume Next
Application.ScreenUpdating = False
    n = InputBox("Combien de copies voulez-vous créer?")
    If n > 0 Then
        For i = 1 To n
            ActiveSheet.Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
            ActiveSheet.Name = i
        Next
    End If
End Sub
Par contre si les feuilles existent déjà elles seront créées et renommées par ex 1(2).
Tout va dépendre de votre fichier d'origine.
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Ou en rajoutant une ligne de code :
VB:
Sub CopierFeuilleMultiple()
Dim n As Integer, i As Integer
On Error Resume Next
Application.ScreenUpdating = False
    n = InputBox("Combien de copies voulez-vous créer?")
    If n > 0 Then
        For i = 1 To n
            ActiveSheet.Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
            ActiveSheet.Name = i
            ActiveSheet.[C5] = i
        Next
    End If
End Sub
 

Discussions similaires

Réponses
5
Affichages
280
Réponses
9
Affichages
127

Statistiques des forums

Discussions
312 933
Messages
2 093 734
Membres
105 803
dernier inscrit
metroMBP