Duplicate FEUILLE

[tdaoui]

Bonjour le forum, Bonjour à tous,

Je reviens vers vous car je n'arrive pas à trouver la formule exacte pour dupliquer une feuille dans EXCEL

PS : Je n'ai Excel et le fichier sous la main pour vous l'envoyer :-(
Je vous explique:
Dans mon fichier, j'ai une feuille intitulée [Ev] que je souhaite dupliquer 220 fois en respectant l'ordre [Ev 01]; [Ev 02]; [Ev 03]...
Sinon il me faudra un temps fou pour renommer les feuilles 😕

Au moins s'il existe une autre méthode 😉

En vous remerciant par avance pour votre aide tous

Cdt,
TD

 

[Spitnolan08]

Re : Duplicate FEUILLE

Bonsoir,

J'ai peur qu'une formule ne suffise pas...
Une macro à placer dans un module standard

Sub duplic()
Dim i as byte
For i = 1 To 220
     Sheets("Ev").Copy After:=Sheets(Sheets.Count)
     ActiveSheet.Name = "Ev" & i
Next
End Sub

Mais 220 feuilles ça fait beaucoup...

Cordialement

 

[fred65200]

Re : Duplicate FEUILLE

bonsoir, je crois que l'éditeur de macro le fait très bien.
Au moins pour une feuille.
Après une boucle de 1 à 220 et le tour est joué.

une finesse en plus. Bonsoir spitnolan08

'ce code te duplique ta feuille, juste l'onglet "EV"
Sub AjoutFeuilles()
For i = 1 To 220
    Sheets("EV").Copy After:=Sheets(Sheets("EV").Index + i - 1)
    Sheets(Sheets("EV").Index + i).Name = "EV " & Format(i, "000")
Next
End Sub

cordialement
fred65200

 

[tdaoui]

Re : Duplicate FEUILLE

Merci fred65200, Merci Spitnolan08

Je vais essayer et revenir vers vous si ça ne marche pas