XL 2016 Gestionnaire de Noms et modeles

[tomy]

bonjour les Exceliens,

J'ai creer un fichier excel qui est composé de Tableaux avec chacun des références de Noms pour leurs colonnes.
exemple colonne A : Tab_ColonneA
J'ai fait une petite macro qui supprime la page et recopie le tableau vierge qui était en masqué (modele)

Mon problème est que toutes mes références de colonnes change de nom , exemple : Tab_ColonneA2
Cela arrive autant avec des noms de plage de tableaux normalisés EXcel que de plage "non tableaux".

comment puis je faire ? Est ce un probleme récurrent dès qu'on creer un modele caché sur un classeur ?

Merci !
Thomas

 

[job75]

Bonjour tomy,

J'ai fait une petite macro qui supprime la page et recopie le tableau vierge qui était en masqué (modele)

Elle est où cette petite macro ?

A+

 

[tomy]

Elle est où cette petite macro ?

Elle est très basique : Copie du fichier modele - Rendre visible la copie - Renommer la copie... 3 lignes.
du coup comme on voit sur la capture d'crean, je me retrouve avec plusisuers fois la mm dénomination ou dans le cas de tableau une version renommée...

 

[job75]

Les petites macros ça court les rues :

Sub Remplacer()
Dim noms1, noms2, i%
noms1 = Array("ColonneX", "ColonneY", "ColonneZ") 'à adapter
noms2 = Array("ColonneA", "ColonneB", "ColonneC") 'à adapter
For i = 0 To UBound(noms1)
    Evaluate(noms1(i)).Clear
    Evaluate(noms2(i)).Copy Evaluate(noms1(i)).Cells(1)
    Evaluate(noms1(i)).Resize(Evaluate(noms2(i)).Count).Name = noms1(i)
Next
End Sub

 

[tomy]

Je viens d'essayer ! Ca marche parfaitement pour les Gestions de Noms. merci.

Par contre comment gérér les "Tableaux" type Tab_ZAxx ? Qui sont les zones "Mise sous forme de tableaux".

 

[tomy]

j'ai trouvé mon bonheur. Je ne savais pas que cela s'appelait "Tableau structuré"
Sheets("bd").ListObjects.Add(xlSrcRange, Range("$A$1:$D$603"), , xlYes).Name = "Tableau1"

voila pour les suivants ! sujet résolu.

 

[job75]

Bonjour tomy,

Voyez ce nouveau fichier avec des tableaux structurés :

Sub RemplacerTableaux()
Dim noms1, noms2, i%
noms1 = Array("Tableau3", "Tableau4") 'à adapter
noms2 = Array("Tableau1", "Tableau2") 'à adapter
For i = 0 To UBound(noms1)
    Evaluate(noms1(i)).Delete xlUp
    Evaluate(noms2(i)).Copy Evaluate(noms1(i))
Next
End Sub

A+