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.