Autres Question concernant les tables pivots

[nikolaslefebvre]

Bonjour,

J'ai besoin de votre aide pour deux tableaux croisés dynamiques. Pour info, j'utilise Excel 2007.
Je ne sais pas si ce que je veux est possible dans Excel. J'ai joint un exemple.
Le tableau original correspond à ce que je veux.
Le premier tableau consiste à regrouper les lignes ayant le même ID et à fusionner les cellules des personnes.
Le deuxième tableau consiste à regrouper les lignes ayant le même ID et à compter le nombre de personnes.

Merci pour vos conseils,

Nicolas

 

[Staple1600]

Bonjour

Je me suis simplement laissé guider par ma souris 😉

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

 

[nikolaslefebvre]

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

 

[Staple1600]

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.

 

[nikolaslefebvre]

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

 

[Staple1600]

Re

Donc ensuite: Etape2

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

 

[nikolaslefebvre]

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

 

[Staple1600]

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

 

[Staple1600]

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.

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

 

[nikolaslefebvre]

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

 

[Staple1600]

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 ?

 

[nikolaslefebvre]

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

 

[nikolaslefebvre]

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

 

[Staple1600]

Re

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