XL 2016 Gestionnaire de Noms et modeles

tomy

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

Capture.PNG


Merci !
Thomas
 

job75

XLDnaute Barbatruc
Les petites macros ça court les rues :rolleyes: :
VB:
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
 

Pièces jointes

  • Remplacer(1).xlsm
    19.8 KB · Affichages: 22

tomy

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

XLDnaute Barbatruc
Bonjour tomy,

Voyez ce nouveau fichier avec des tableaux structurés :
VB:
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+
 

Pièces jointes

  • Remplacer tableaux(1).xlsm
    22.2 KB · Affichages: 10

Discussions similaires

Réponses
12
Affichages
429

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG