Dupliquer 2 feuilles lier et faire un Macro

[DrEssex]

Bonjour

Voilà mon problème:
Sous Excel j'ai plusieurs feuilles
Je chercher à creer un Macro afin de dupliquer 2 feuilles.
Elles se nomment "1P" et "2P".
Elles sont liées, par divers formules entre-elles, par exemple; tous ce qui écrit sur une cellule A:2 de la feuille 1P et reporter B:15 sur la feuille 2P.

les feuilles 1P et 2p sont des modèles lier par des reports.

Je veux une macro (bouton) qui duplique ces feuilles 1P, 2P (soit 1P(2) et 2P(2) en conservant les même reports (juste les noms des feuilles change) et aussi bien déverrouiller les protections pour quelles soient prête à l'emploi.

Je sais il existe une astuce avec la souris et Ctrl pour dupliquer les 2 feuilles associer; et cela marche.

Je voudrais créer, un bouton (Macro) pour automatiser cette fonction.

J'ai essayé avec la fonction enregistrer une macro et cela marche pas.

soit cela donne une erreur bug soit les feuilles dupliquer, ne sont plus liée

pour reprendre mon exemple.
A2 de la feuille 1P(2) ne reporte plus sur B15 de la feuille 2P(2).

Merci d'avance.

 

[kjin]

Re : Dupliquer 2 feuilles lier et faire un Macro

Bonjour,

...
pour reprendre mon exemple.
A2 de la feuille 1P(2) ne reporte plus sur B15 de la feuille 2P(2).

Sauf que j'ai beau chercher je ne vois rien ni en colonne A ni en B !
Peut-être comme ça

Sub Copie()
ActiveWorkbook.Sheets(Array("1P 2008", "2P 2008")).Copy after:=ActiveSheet
End Sub

A+
kjin

 

[DrEssex]

Re : Dupliquer 2 feuilles lier et faire un Macro

Oui en effet comme j'ai voulue simplifier le fichier , je n'avais pas vue que j'avais décalé mes colonnes de A à C...
mais le principe reste le même...

sinon
Sub Copie()
ActiveWorkbook.Sheets(Array("1P 2008", "2P 2008")).Copy after:=ActiveSheet
End Sub

marche superbe !! seule point noir c'est trouvé une ligne de commande pour les copie ainsi crée soient en dernier du classeur excel (sachant qu'il y a beaucoup de feuille (et elle varie ... dans ce fichier) )

 

[Pierrot93]

Re : Dupliquer 2 feuilles lier et faire un Macro

Bonjour Dressex, Kjin

modifies peut être comme suit :

ActiveWorkbook.Sheets(Array("1P 2008", "2P 2008")).Copy after:=Sheets(Sheets.Count)

bonne jourrnée
@+

 

[DrEssex]

Re : Dupliquer 2 feuilles lier et faire un Macro

Merci
vous êtes des chefs !!!
cela marche !!!