High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

Copier onglet excel avec incrémentation

Dernière réponse le 14 oct 2008 à 19:11:40 gcavin, le 13 oct 2008 à 19:13:23 
 Signaler ce message aux modérateurs

Bonjour,
je cherche a faire une macro pour copier un onglet et incrémenter un numéro:

mon onglet s'appel N°1 et j'aimerais en faire une copie et le renommer en N°2, ainci de suite jusqu'a 26

merci d'avance

Posez votre question Répondre

1

LatelyGeek, le 14 oct 2008 à 16:23:19
  • +1

Sub CopieFeuilles()


For Compteur = 26 To 2 Step (-1)

Sheets("N°1").Select
Sheets("N°1").Copy After:=Sheets(1)
NomFeuille = "N°" & Compteur
ActiveSheet.Name = NomFeuille

Next
End Sub
Pourquoi se compliquer la vie à faire simple, quand c'est si simple de faire compliqué?Sub Macro2()

   
Répondre à LatelyGeek

2

 gcavin, le 14 oct 2008 à 19:11:40
  • +1

Cela marche super bien...

en te remercient et en te souhaitant une très bonne soirée

salut Greg

   
Répondre à gcavin
Posez votre question Répondre
Ils ont besoin de votre aide