XL 2016 Délier une formule Excel quand duplication onglet

[jo77]

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

 

[sousou]

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
'------------------------------

 

[jo77]

Bonjour Sousou,

C'est parfait, cela fonctionne 🙂 Merci beaucoup, je commençais à désespérer.