Copier un onglet, le recopier et le renommer [Résolu/Fermé]

Signaler
Messages postés
60
Date d'inscription
jeudi 22 novembre 2012
Statut
Membre
Dernière intervention
4 juin 2019
-
Messages postés
60
Date d'inscription
jeudi 22 novembre 2012
Statut
Membre
Dernière intervention
4 juin 2019
-
Bonjour,

je dispose d'un fichier Excel avec quelques onglets. L'un des onglets s'appelle ER1.
J'aurai besoin que la macro (bouton dispo sur la feuille en question) recopie la feuille en entier, la colle juste à côté de l'onglet ER1 et la renomme ER2.

Enfin, j'ai besoin d'avoir la même macro disponible sur la feuille ER2 pour créer un nouvel onglet ER3, de la même manière, etc...

J'ai bien essayé quelques macros mais je ne parviens pas à créer ce nouvel onglet juste à côté de celui qui le crée. En effet, j'ai d'autres onglets après ER1 et il ne faut pas que ER2 soit placé à la fin des onglets.

Merci d'avance pour vos réponses !

2 réponses

Messages postés
12793
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
28 octobre 2020
2 050
Bonsoir

Essaie ce code :
Sub copie()
    ActiveSheet.Select
    nom = ActiveSheet.Name
    num = Val(Right(nom, Len(nom) - 2)) + 1
    ActiveSheet.Copy After:=Sheets(nom)
    Sheets(nom & " (2)").Select
    Sheets(nom & " (2)").Name = "ER" & num
End Sub


Cdlmnt
Messages postés
60
Date d'inscription
jeudi 22 novembre 2012
Statut
Membre
Dernière intervention
4 juin 2019

Bonjour,

merci beaucoup pour ta réponse. Cela correspond exactement à ce que je voulais faire !!

Merci encore et joyeuses fêtes !