XL 2016 Gestionnaire de Noms et modeles

job75

XLDnaute Barbatruc

• 7 Août 2020

• #2

Bonjour tomy,

tomy à dit:

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

Cliquez pour agrandir...

Elle est où cette petite macro ?

A+

 

Vote positif 0 Vote négatif

tomy

XLDnaute Nouveau

• 7 Août 2020

• #3

job75 à dit:

Elle est où cette petite macro ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Août 2020

• #4

Les petites macros ça court les rues :

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

Vote positif 0 Vote négatif

tomy

XLDnaute Nouveau

• 10 Août 2020

• #5

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".

 

Vote positif 0 Vote négatif

tomy

XLDnaute Nouveau

• 10 Août 2020

• #6

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Août 2020

• #7

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

Vote positif 0 Vote négatif