Copier un onglet, le recopier et le renommer

Résolu
Luke94 Messages postés 61 Date d'inscription   Statut Membre Dernière intervention   -  
Luke94 Messages postés 61 Date d'inscription   Statut Membre Dernière intervention   -
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 !
A voir également:

2 réponses

Réponse 1 / 2
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
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
0
Réponse 2 / 2
Luke94 Messages postés 61 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

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

Merci encore et joyeuses fêtes !
0

Discussions similaires

Feuille de score belote
nulleeninfo -
brucine -

7 réponses
dessin avec symbole clavier
JSS -
Adraen -

79 réponses