Autres Question concernant les tables pivots

Staple1600

XLDnaute Barbatruc

• 21 Mars 2021

• #2

Bonjour

Je me suis simplement laissé guider par ma souris

1) Sélection du tableau puis Insertion/Tableau Croisé Dynamique

 

Vote positif 0 Vote négatif

N

nikolaslefebvre

XLDnaute Nouveau

• 21 Mars 2021

• #3

Bonjour Staple1600,

Merci pour ta réponse. Est-il possible de joindre le fichier que tu as pu faire car je n'y arrive pas ? As-tu utilisé des macros ou juste un tableau croisé dynamique ?

Merci par avance,

Nicolas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mars 2021

• #4

Re

Non, pas de macros.
As-tu fais la 1er étape?
Tu sélectionnes ton tableau initial A2:I9
Puis sur le ruban, faire:
Insertion/Tableau Croisé Dynamique
Tu dois voir ceci s'afficher

Et là, tu coches l'option de ton choix pour l'emplacement.

 

Vote positif 0 Vote négatif

N

nikolaslefebvre

XLDnaute Nouveau

• 21 Mars 2021

• #5

Oui j'ai fais exactement cela mais c'est le "group by" du champ ID que je n'arrive pas à faire et la fusion du champ Persons. Peux-tu m'expliquer comment tu as fait pas à pas ?
Merci,
Nicolas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mars 2021

• #6

Re

Donc ensuite: Etape2

Il faut déplacer les champs à la souris dans la catégorie Lignes

 

Vote positif 0 Vote négatif

N

nikolaslefebvre

XLDnaute Nouveau

• 21 Mars 2021

• #7

et les étapes suivantes ?.....comment fais-tu pour voir les champs dans les colonnes ?
Merci par avance

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mars 2021

• #8

Re

A cet étape, on continue par
1) Dans l'onglet Création
On choisit
Disposition du rapport=> Afficher sous forme tabulaire
Puis dans Sous-Totaux
=>Ne pas afficher les Sous-Totaux

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mars 2021

• #9

Re

Pour conclure, si tu n'as réussi à finaliser ton TCD, voici une macro qui le fera
(test OK sur Excel 2013)
Il faut sélectionner le tableau avant de lancer la macro.

VB:

Sub CREER_TCD()
Dim f As Worksheet, pvt As PivotTable, pvtCache As PivotCache, sTab$, pf As PivotField
Set f = Sheets("DATA")
sTab = Selection.Parent.Name & "!" & Selection.Address(ReferenceStyle:=xlR1C1)
Set pvt = ActiveWorkbook.PivotCaches.Create(SourceType:=1, SourceData:=sTab).CreatePivotTable("", "")
Application.ScreenUpdating = False
    pvt.PivotFields("ID").Orientation = xlRowField
    pvt.PivotFields("ID").Position = 1
    pvt.PivotFields("PRODUCT").Orientation = xlRowField
    pvt.PivotFields("PRODUCT").Position = 2
    pvt.PivotFields("REGION").Orientation = xlRowField
    pvt.PivotFields("REGION").Position = 3
    pvt.PivotFields("COUNTRY").Orientation = xlRowField
    pvt.PivotFields("COUNTRY").Position = 4
    pvt.PivotFields("PERSONS").Orientation = xlRowField
    pvt.PivotFields("PERSONS").Position = 5
    pvt.RowAxisLayout xlTabularRow
On Error Resume Next
For Each pf In pvt.PivotFields
pf.Subtotals(1) = False
Next
End Sub

 

Vote positif 0 Vote négatif

N

nikolaslefebvre

XLDnaute Nouveau

• 21 Mars 2021

• #10

Merci, encore deux petites question, comment faire pour avoir REGION après PRODUCT ?

Est-il possible de copier un tableau dynamique dans une autre feuille pour faire des traitements supplémentaires ?

Merci,

Nicolas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mars 2021

• #11

Re

Il suffit simplement de déplacer la champ manuellement (à la souris)
(dans la Liste des champs à droite de l'écran
(voir copie écran du message#6)

NB: Dans mes deux exemples
(a) copie écran (-> message#2)
(b) macro
C'est déjà le cas, non ?

 

Vote positif 0 Vote négatif

N

nikolaslefebvre

XLDnaute Nouveau

• 21 Mars 2021

• #12

Désolé de t'embêter un dimanche mais tu parles du tableau ci-dessous ?

 

Vote positif 0 Vote négatif

N

nikolaslefebvre

XLDnaute Nouveau

• 21 Mars 2021

• #13

Désolé je viens de comprendre !! Un grand merci pour ton aide !!
Bonne fin de journée,
Nicolas

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Mars 2021

• #14

Re

Rien de mieux que le Do It Your Self pour comprendre
(avec la satisfaction en plus)

 

Vote positif 0 Vote négatif