dupliquer un onglet excel

xUpsilon

XLDnaute Accro

• 13 Janvier 2020

• #2

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

 

Dernière édition: 13 Janvier 2020

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 13 Janvier 2020

• #3

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

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 13 Janvier 2020

• #4

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

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 13 Janvier 2020

• #5

Re,

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

Bonne continuation

 

Vote positif 0 Vote négatif

K

K.SICAME

XLDnaute Nouveau

• 15 Mai 2020

• #6

Merci à vous! J'ai réussi 🙂

 

Vote positif 0 Vote négatif