Copier, renomer et incrémanter une feuille

[LoC]

Bonjour,

Je suis nouveau sur le site, Je suis un amateur en macro et je recherche toute la journée sur les forums et internet pour trouver une réponse mais sans résultat. J'ai un classeur excel 2003 composer de 14 feuille, Audit 1 à 12 plus résultat et personnel. Les feuilles Audit 1 à 11 contienne un tableau compléter et Audit 12 un tableau vierge que je voudrais copier jusqu'à Audit 95 à la suite d'Audit 12 et avant résultat. Il y a aussi les cellule A1 et A2 fusionnée qui contienne N°(de la feuille) qu'il faudrait incrémenter.

Je vous joint le fichier excel avec en ayant supprimer les info de l'entreprise et la feuille personnel.

Je vous remercie pour vos réponse cela concerne mon projet en entreprise.

 

[Papou-net]

Re : Copier, renomer et incrémanter une feuille

Bonsoir LoC, et bienvenue,

Ci-dessous une macro à mettre dans un module de code standard et à lancer par la méthode de ton choix :

Sub ExempleCopieFeuilles()
For f = 13 To 95
  Sheets("Audit 12").Copy after:=Sheets("Audit " & f - 1)
  With ActiveSheet
    .Name = "Audit " & f
    .Range("A1") = "N° " & f
  End With
Next
End Sub

Elle est relativement simple, je pense que tu la comprendras aisément. Sinon, n'hésite pas à demander des explications.

Cordialement.

 

[LoC]

Re : Copier, renomer et incrémanter une feuille

Bonjour Papou-net,

Je te remercie pour la macro, sa fonctionner du tonnerre.

Cordialement

 

[Papou-net]

Re : Copier, renomer et incrémanter une feuille

Bonjour Papou-net,

Je te remercie pour la macro, sa fonctionner du tonnerre.

Cordialement

Bonjour LoC,

De rien, heureux que ça te convienne.

J'en profite pour te proposer une amélioration, tant en rapidité d'exécution que de confort visuel, en désactivant le rafraîchissement d'écran :

Sub ExempleCopieFeuilles()
Application.ScreenUpdating = False
For f = 13 To 95
  Sheets("Audit 12").Copy after:=Sheets("Audit " & f - 1)
  With ActiveSheet
    .Name = "Audit " & f
    .Range("A1") = "N° " & f
  End With
Next
Application.ScreenUpdating = True
End Sub

Cordialement.