dupliquer un onglet excel

K.SICAME · 13 Janvier 2020

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 · 13 Janvier 2020

Bonjour,

VB:

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 · 13 Janvier 2020

Salut K.Sacame,
Peut être comme ceci

VB:

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 · 13 Janvier 2020

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

xUpsilon · 13 Janvier 2020

Re,

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

Bonne continuation

K.SICAME · 15 Mai 2020

Merci à vous! J'ai réussi

dupliquer un onglet excel

K.SICAME

XLDnaute Nouveau

xUpsilon

XLDnaute Accro

Lolote83

XLDnaute Barbatruc