VBA - Renommer colonne dans TCD

[baroneddy]

Bonjour à tous,

C'est ma première fois sur ce forum. Je me retrouve ici car j'ai besoin de vos connaissances en VBA/Excel.

Ce qui suit est en lien avec le fichier joint 🙂 :

J'aimerai en fait essayer de trouver un code (j'ai déjà pas mal cherché et fait des tests avec l'enregistreur de macro) qui me permette de copier / coller la grille de taille (onglet grille de taille) avec la mise en page dans le tableau croisée dynamique.

Pour l'instant, la seule manière que j'ai de faire cela, c'est d'aller de modifier les titres des colonnes du TCD les unes après les autres, pour ce que je veux en faire, ce n'est pas possible malheureusement. J'aimerai donc trouvé un code qui me permette d'automatiser cela.

Je vous remercie d'avance pour votre aide, j'espère que ce que je demande ne parait pas trop farfelu !

Bonne nuit !

 

[tbft]

Re : VBA - Renommer colonne dans TCD

Bonsoir

J'ai bien essayé de comprendre.... mais rien compris peut être du à l'heure...
Serait il possible d'avoir un exemple du résultat à obtenir, svp?

 

[baroneddy]

Re : VBA - Renommer colonne dans TCD

A pardon 🙂

Revoila le fichier. En gros, les titres des colonnes du TCD sont égaux au titres qu'il y a dans l'onglet "grille de taille". Sauf que pour faire cela, j'ai du faire copier/coller des textes 1 à 1. J'aimerai trouver une macro pour automatiser ce processus et que si je change le texte dans la grille de taille, je lance la macro, et hop ca actualise mes titres dans mes TCD !

J'espère avoir été plus claire,

Merci beaucoup !

 

[tbft]

Re : VBA - Renommer colonne dans TCD

Bonjour

Essaye ce fichier...

 

[baroneddy]

Re : VBA - Renommer colonne dans TCD

Ca marche très bien je te remercie ! Maintenant faut que je comprenne tout ça et que je l'intègre dans mon autre fichier ! Merci beaucoup en tout cas !!

 

[baroneddy]

Re : VBA - Renommer colonne dans TCD

Question bête, comment garder la mise en page de la source (saut de ligne)!

Aussi, si j'ai bien compris, c'est ici qu'on définie la largeur de la zone copier ? :

.Activate
    Table = .Range(Cells(4, 1), Cells(4, .UsedRange.Columns.Count))

Donc si je veux faire une largeur fixe (par exemple 25 cellules), j'écris :

.Activate
    Table = .Range(Cells(4, 1), Cells(4, 25))

?

Je te remercie 🙂

 

[tbft]

Re : VBA - Renommer colonne dans TCD

enlève l'espace [/highlight ] avant le ]

oui tu peux le faire....

 

[Pierrot93]

Re : VBA - Renommer colonne dans TCD

Bonjour,

pour que la propriété "cells" s'applique au même objet dans le bloc "with" que le "range", place également un point devant les "cells"....

bon après midi
@+

 

[baroneddy]

Re : VBA - Renommer colonne dans TCD

Pardon, ca m'apprendra à aller trop vite.


Encore une petite après je pense que je m'en sortirai 🙂 :

Pour le moment, la grille de taille est dans le même classeur, est-ce qu'il serait possible de prendre dans un autre classeur (qui est dans le même répertoire).

J'ai essayé ça mais ca ne marche pas :s ? (en admettant bien sur que database.xlsm soit la fichier dans lequel il y a la grille de taille à prendre !

 With Worksheets("[database.xlsm]Grille de taille")

 

[Pierrot93]

Re : VBA - Renommer colonne dans TCD

Bonjour,

perso je déclarerais le bloc "with" ainsi :

With Workbooks("database.xlsm").Worksheets("Grille de taille")

regarde mon post de 14h23.. il semble que nous nous sommes croisé...

 

[baroneddy]

Re : VBA - Renommer colonne dans TCD

Au top Pierrot 🙂 Ca marche très d'aller chercher les données dans l'autre fichier comme ça !

Par contre, j'ai mis des points devant les Cells :

Table = .Range(.Cells(4, 1), .Cells(4, .UsedRange.Columns.Count))

Mais ca ne marche pas :s Alors j'ai peut etre rien compris à ce que tu as écris, vu mon niveau c'est pas impossible du tout 🙂

 

[Pierrot93]

Re : VBA - Renommer colonne dans TCD

Re,

bah, si tu ne mets pas les points, cela s'appliquera sur la feuille active ou sur la feuille dans laquelle est exécuté le code.... pas forcement la même que celle déclarée par le bloc "with"....

 

[baroneddy]

Re : VBA - Renommer colonne dans TCD

J'ai malheureusement pas tout compris mais je vais chercher un peu moi-même, j'ai assez disposé de votre temps ! Merci pour tout en tout cas !

 

[tbft]

Re : VBA - Renommer colonne dans TCD

Bonjour

Profite, perso je suis en vacance..... alors n'hésite surtout pas....

 

[baroneddy]

Re : VBA - Renommer colonne dans TCD

C'est super sympa, merci ! Pour le moment je bosse sur d'autres aspects du fichier, ce soir je me mets à fond sur cette mise en page difficile. Je vous dirais si je bloque toujours !