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

XL 2016 Délier une formule Excel quand duplication onglet

jo77

XLDnaute Nouveau
Bonjour à vous,

Je cherche à délier une formule lorsque je duplique des onglets ?

En effet, j'ai une feuille 1 où se trouvent des données.
La feuille 2, reprends les données de la feuille 1 et en fait un diagramme de Gantt.

La feuille 1 est un formulaire vierge.
J'ai une macro qui me permet, en appuyant sur un bouton, de dupliquer les 2 onglets en même temps.

Cependant, ma feuille 2 bis reste liée à ma feuille 1.
J'aimerai, que lors de la duplication, la Feuille 2 bis soit liée à la nouvelle Feuille 1 bis.

Bon je ne sais pas si j'ai été assez clair

J'ai joint un fichier pour exemple. En cliquant sur "Nouveau", on vous demande une référence.
Il faut alors entrer la référence, et 2 onglets vont se créer.

Si je change les données de la nouvelle Feuille 1Bis, j'aimerai que la feuille 2Bis soit liée.

Merci
 

Pièces jointes

  • Exemple.xlsm
    268.8 KB · Affichages: 11
Solution
Bonjour
Lorsque tu copies la feuille le tableau change de nom, mais pas les formules qui ci référent.
Je te propose ceci à contrôler.
J'ai inversé la copie des feuilles pour prélever le nom du tableau et celui de mla copie

Je considère qu'il n'y a qu'un seul tableau. sinon il faut le nommer spécifiquement et travailler avec
'------------------------------------------- Copie la feuille Check List Vierge
With Sheets("Check-List_Vierge")
tableausource = .ListObjects(1).Name
.Copy After:=Sheets("GANTT Général")
End With
ActiveSheet.Name = Référence_Mécanique
tableaudest = ActiveSheet.ListObjects(1).Name

'----------------------------------------------------------------...

sousou

XLDnaute Barbatruc
Bonjour
Lorsque tu copies la feuille le tableau change de nom, mais pas les formules qui ci référent.
Je te propose ceci à contrôler.
J'ai inversé la copie des feuilles pour prélever le nom du tableau et celui de mla copie

Je considère qu'il n'y a qu'un seul tableau. sinon il faut le nommer spécifiquement et travailler avec
'------------------------------------------- Copie la feuille Check List Vierge
With Sheets("Check-List_Vierge")
tableausource = .ListObjects(1).Name
.Copy After:=Sheets("GANTT Général")
End With
ActiveSheet.Name = Référence_Mécanique
tableaudest = ActiveSheet.ListObjects(1).Name

'----------------------------------------------------------------
'------------------------------------------- Copie la feuille Gantt Vierge
Sheets("Gantt_Vierge").Copy After:=Sheets("GANTT Général")
ActiveSheet.Name = Référence_Mécanique + "_GT"
ActiveSheet.UsedRange.Replace What:=tableausource, Replacement:=tableaudest, LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
'------------------------------
 

Discussions similaires

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