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

Question

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 !

via55 · Answer

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

Luke94 · Answer

Bonjour,

merci beaucoup pour ta réponse. Cela correspond exactement à ce que je voulais faire !!

Merci encore et joyeuses fêtes !

Copier un onglet, le recopier et le renommer

2 réponses

Discussions similaires