XL 2013 TCD - n'extraire que certaines colonnes au double-click

[GADENSEB]

Re bonjour le Forum
Je souhaiterais (pour un fichier du travail, donc non publiable ici) :
J'ai une BDD qui est analysée par un TCD ..... de ce TCD on peut faire le fameux double-click qui fait apparaitre un extract de la BDD avec les critéres du TCD au moment du double-click

Exemple : Au lieu de me sortir les colonnes A:S
Il ne me ressort que les colonnes A;D;M;S ....

j'ai pas trouvé dans les options du TCD .... donc obligé de passer par macro ?

Bonne journée
Seb

 

[chris]

Bonjour

De façon générale, ce qui est extrait dépend du point de double clic par rapport à la structure du TCD.

Mais on ne peut intervenir pour filtrer l'extrait sauf à la faire a postériori, éventuellement par macro.

Quand à "pour un fichier du travail, donc non publiable ici" : relis la charte on ne demande pas le vrai fichier mais au contraire un exemple anonymisé mais représentatif...

 

[GADENSEB]

Hello Chris, tu as raison un fichier représentatif c'est mieux !!!
Le voila d'ailleurs ;-)

Du coup, j'ia créer un exemple ...
Avec la BDD , le TCD, et l'extract TCD avec les colonnes souhaitées ....

Qu'est ce que tu en penses ?

Bonne AM
Seb

 

[chris]

Re

Pour détecter l'extaction, il faut pister

• le double clic dans la feuille TCD et vérifier s'il a lieu dans un TCD
  
• la création de l'onglet puis supprimer les colonnes inutiles

Il y a 3 codes:

• 2 dans le module Thisworkbook
• 1 dans un module classique

 

[GADENSEB]

Hello,
Génial ton code, je suis enrtain de le transformer dans mon fichier source

un truc dont je ne suis pas sur ....

        ActiveSheet.Columns("B:D").Delete Shift:=xlToLeft
        Columns("E:H").Delete Shift:=xlToLeft

les Columns("E:H") sont celles de la BDD d'origine ou celles aprés la suppression de B:d ?

A+ Seb

 

[chris]

Bonjour

Tu peux le constater en pas à pas : la 1ère ligne supprime B à D donc comme le dit le code, tout shift de 3 colonnes à gauche et les lettres changent donc...

Je vois au passage une erreur dans mon code : la 2ème ligne doit aussi être précédée de ActiveSheet.
même si c'est implicite...

Sinon tu peux commencer par la fin : supprimer d'abord les colonnes les plus à droite puis remonter vers la gauche, évite de se faire des nœuds car on se réfère alors aux colonnes initiales

 

[GADENSEB]

Hello.
Nikel je vais tester dans ce sens.
Le principe de base est super.
Bon we