dupliquer un onglet excel

[K.SICAME]

Bonjour,

J'aimerais pouvoir dupliquer un onglet 52 fois. Cet onglet s'appelle "S (1)" et je souhaite aller jusqu'à "S (52)". J'ai essayer avec une macro mais j'ai trouvé que pour dupliquer une seule fois la feuille.

Sauriez-vous comment je puisse faire cette action avec une macro?

Je vous remercie d'avance.

 

[xUpsilon]

Bonjour,

Sub duplic()
Application.ScreenUpdating = False
For i = 2 to 52
Worksheets("S (1)").Copy After:=Sheets(Worksheets.Count)
Set MySheet = ActiveSheet
With MySheet
   .Name = "S (" & i & ")"
End With
Next i

Application.ScreenUpdating = True
End Sub

A essayer.

Bonne continuation

 

[Lolote83]

Salut K.Sacame,
Peut être comme ceci

Sub Dupplique()
    Application.ScreenUpdating = False
    For F = 1 To 51
        Sheets("S (1)").Copy After:=Sheets(F)
    Next F
    Application.ScreenUpdating = True
End Sub

@+ Lolote83

 

[Lolote83]

Salut à tous,
xUpsilon, un petit & manquant dans l'expression. Voir ci-dessous l'expression corrigée.
.Name = "S (" & i & ")"
@+ Lolote83

 

[xUpsilon]

Re,

Exact, modifié dans le post ci dessus, merci à toi !

Bonne continuation

 

[K.SICAME]

Merci à vous! J'ai réussi 🙂