Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Dupliquer 2 feuilles lier et faire un Macro

DrEssex

XLDnaute Nouveau
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.
 

Pièces jointes

  • essais.zip
    19.5 KB · Affichages: 38
  • essais.zip
    19.5 KB · Affichages: 30
  • essais.zip
    19.5 KB · Affichages: 30

DrEssex

XLDnaute Nouveau
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

XLDnaute Barbatruc
Re : Dupliquer 2 feuilles lier et faire un Macro

Bonjour Dressex, Kjin

modifies peut être comme suit :

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

bonne jourrnée
@+
 

Discussions similaires

Réponses
8
Affichages
467
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…