Microsoft 365 TCD - Copier-coller la sélection de plusieurs segments de TCD

job75

XLDnaute Barbatruc

• 24 Septembre 2021

• #2

Bonjour GMeunier,

Inscrit depuis 2007 vous croyez qu'on peut faire grand-chose avec votre fichier Word ???

A+

 

Vote positif 0 Vote négatif

G

GMeunier

XLDnaute Nouveau

• 24 Septembre 2021

• #3

Bien compris! Désolé! Voici les 2 feuilles concernées, le code est sur la feuille TCD.
Et, merci pour la réaction rapide

 

Pièces jointes

• Segment_Copier-Coller.xlsm

  138.5 KB · Affichages: 10

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Septembre 2021

• #4

Ce n'est pas clair.

S'il s'agit seulement de copier-coller les 2 TCD c'est très simple :

VB:

Private Sub Worksheet_Calculate()
With Sheets("TB_AN")
    .Cells.Delete 'RAZ
    Range("A10", Cells.SpecialCells(xlCellTypeLastCell)).Copy .[A1]
    .Columns.AutoFit 'ajustement largeurs
End With
End Sub

 

Pièces jointes

• Segment_Copier-Coller(1).xlsm

  62.3 KB · Affichages: 6

Vote positif 0 Vote négatif

G

GMeunier

XLDnaute Nouveau

• 24 Septembre 2021

• #5

Peut-être ma question n'est pas claire. Il ne s'agit pas de copier un TCD mais de copier coller les items sélectionnés dans plusieurs segments. Le code dans la feuille TCD permet de copier l'item sélectionné dans 1 et 1 seul segment et de le coller dans la feuille TB, en l'occurrence il s'agit d'indiquer l'année qui est sélectionné dans le segment et de coller cette année dans la feuille TB. Il suffit de changer d'année dans le segment pour voir que ça change l'année du TB. Je souhait faire la même chose mais en ayant plusieurs segments. Comment copier coller les items de plusieurs segments?

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 24 Septembre 2021

• #6

Bonjour

Ici il suffirait de lier la cellule à G12 de l'onglet TCD, pas besoin de code

 

Vote positif 0 Vote négatif

G

GMeunier

XLDnaute Nouveau

• 25 Septembre 2021

• #7

A Chris et Job75
Je vous remercie pour les réponses mais manifestement on ne se comprend pas. Chris, je ne peux pas lier l'item sélectionné d'un segment de cette manière, ce que je copie c'est la cellule en dessous. Il faut du VBA.
Je veux adapter le code VBA existant de la feuille TCD (voir fichier joint) qui me permet de copier-coller la sélection d'un segment de la feuille TCD_An dans la feuille TB afin de pour pouvoir copier les sélection de plusieurs (2 ou plus) segments.
Le code VBA actuel fonctionne très bien pour 1 et 1 seul segment, comment faire pour copier les sélections de plusieurs segments?
Merci pour toutes indications.
GDM

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 25 Septembre 2021

• #8

RE

Ton code copie en G9, G10... G13 les 5 années du slicer (si on ne filtre rien, pas une ou 2 années précises) écrasent donc d'autre informations...

A noter que les slicers peuvent contenir , c'est le cas ici, des années qui ne sont pas affichées...

En plus on n'a pas la source des TCD donc difficile de savoir clairement d'où tu pars et où tu vas

 

Dernière édition: 26 Septembre 2021

Vote positif 0 Vote négatif

G

GMeunier

XLDnaute Nouveau

• 27 Septembre 2021

• #9

Merci pour la réponse mais elle ne répond pas à ma question. Je comprends ce que vous dîtes mais, à ce stade, je ne souhaite pas utiliser Power BI et je ne connais pas les formules cubes. Je souhaite simplement avoir une aide sur la modification du code VBA de la feuille TCD pour pouvoir copier-coller les items sélectionnés lorsque j'utilise plusieurs segments au lieu d'un seul comme dans le code actuel.

Comme j'ai déjà expliqué, la pièce jointe est un extrait d'un classeur qui génère des Tableaux de Bord automatiquement à l'aide de TCDs. J'ai récupéré du code VBA (dans la feuille TCD) qui me permet de copier l'item sélectionné dans le segment du TCD (ou plusieurs mais ici 1 seul car il s'agit de l'année) pour le copier dans la feuille TB (ce qui permet de visualiser l'année à laquelle ce TB fait référence).
Mais ce code ne fonctionne que pour un segment, je voudrais pouvoir le faire fonctionner avec plusieurs segments (Année, Région, etc.). Ce doit avoir un rapport avec slicer.cache mais je ne suis pas un spécialiste du VBA, juste un utilisateur d'Excel.

Donc ma question est comment modifier le code VBA de cet exemple pour que je puisse copier coller les items de plusieurs segments?

Merci pour toute aide.

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 27 Septembre 2021

• #10

RE

On te dit que ce code ne fonctionne pas correctement...

Il faudrait déjà le corriger avant d'en créer d'autre.

Pour ma part, devant autant d'entêtement je lâche l'affaire...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Septembre 2021

• #11

Bonjour GMeunier, chris,

S'il s'agit seulement de récupérer les années sélectionnées :

VB:

Private Sub Worksheet_Calculate()
Dim lig&, s As SlicerItem
lig = 9 '1ère ligne de restitution
With Sheets("TB_AN")
    .Rows(lig & ":" & .Rows.Count).Delete 'RAZ
    For Each s In ThisWorkbook.SlicerCaches(1).SlicerItems
        If s.Selected Then .Cells(lig, 7) = s.Value: lig = lig + 1
    Next
End With
End Sub

A+

 

Pièces jointes

• Segment_Copier-Coller(2).xlsm

  52.6 KB · Affichages: 5

Vote positif 0 Vote négatif

G

GMeunier

XLDnaute Nouveau

• 27 Septembre 2021

• #12

Merci de bien vouloir m'aider!
Chris : Au risque de paraître entêté, le code fournit fonctionne parfaitement pour 1 segment. Lorsque je sélectionne une année dans le segment (feuille TCD), elle s'affiche dans la feuille TB en G9 (Evidemment, il faut saisir une seule année!)
job75 : Merci pour le code mais il doit y avoir une problème car je l'ai testé en complément (Commenter bloc) du mien et ce code efface tout dans la feuille TB!
De plus, ce que je souhaite est de pouvoir choisir où coller l'item copié en fonction du segment. Exemple pour le segment Année copier en G9, pour le segment Région (s'il y a un segment Région) copier en H9 etc.
J'ai mis en pièce attachée le même fichier mais en ayant ajouté votre code afin de pouvoir tester l'ancienne version (1 seul segment) et votre version pour plusieurs segments.
Très cordialement,
GMeunier

 

Pièces jointes

• Segment_Copier-CollerRevueDownloadJob75.xlsm

  139.5 KB · Affichages: 9

Vote positif 0 Vote négatif

G

GMeunier

XLDnaute Nouveau

• 29 Septembre 2021

• #13

Chris : J'aurais bien aimé avoir une adaptation de mon code VBA pour progresser sur ce point! Mais votre suggestion m'a indiqué une autre solution sans VBA.
Je crée les segments dont j'ai besoin pour gérer les TB (et je les déplace dans une feuille Menu). Puis j'utilise en filtre du TCD les mêmes champs, les segments et les champs du filtre étant liés, il me suffit de copier les cellules des filtres, qui reflètent ma sélection des segments (Feuille Menu), dans ma feuille TB.
Merci pour cet échange.
GMeunier

 

Vote positif 0 Vote négatif

Solution

chris

XLDnaute Barbatruc

• 29 Septembre 2021

• #14

Bonjour

On peut même faire un TCD connecté aux segments rien que pour cet usage si on ne veut pas surcharger les autres

 

Dernière édition: 29 Septembre 2021

Vote positif 0 Vote négatif

G

GMeunier

XLDnaute Nouveau

• 29 Septembre 2021

• #15

Merci pour la suggestion et A+ car d'autres questions surgiront!
GMeunier

 

Vote positif 0 Vote négatif