OVH Cloud OVH Cloud

tableau et tcd

2 réponses
Avatar
JEAN
Bonjour,

J'ai un tableau dans ma feuille 1 avec plusieurs colonnes.

et je voudrai faire un tcd de certaines colonnes sur ce tableau,et afficher
ce tcd sur un autre onglet

c'est a dire j'aurai donc un bouton de commande sur la feuille 1 qui me
lancera mon tcd .

comment faire un tcd d'un tableau, je voudrai prendre que quelques colonnes.

merci

2 réponses

Avatar
LeSteph
Bonsoir Jean,
Tu ne dis pas lesquelles mais tu choisiras , il te suffit
d'appeler Données Assistant Tableau Croisé Dynamique et tu pourras
choisir ce que tu veux comme lignes ou colonnes et une nouvelle feuille sera
créée.

lSteph

"JEAN" a écrit dans le message de news:

Bonjour,

J'ai un tableau dans ma feuille 1 avec plusieurs colonnes.

et je voudrai faire un tcd de certaines colonnes sur ce tableau,et
afficher
ce tcd sur un autre onglet

c'est a dire j'aurai donc un bouton de commande sur la feuille 1 qui me
lancera mon tcd .

comment faire un tcd d'un tableau, je voudrai prendre que quelques
colonnes.

merci


Avatar
Starwing
Bonsoir Jean,

Je te conseillerais au début de mettre les colonnes de ton
tableau que tu veux transformer en TCD à partir des
cellules A1, B1, C1, et D1, etc

Voici un exemple que tu pourras adapter à tes besoins

En A1 Titre de colonne: Champ1
En B1 Titre de colonne: Champ2
En C1 Titre de colonne: Champ3
En D1 Titre de colonne: Champ4

En A2, A3, etc: Des noms de personnes JEAN, Starwing ;0)
En B2, B3, etc: Des Régions tel Montréal, Québec
En C2, C3, etc: Des mois Jan, Fev, etc
En D2, D3, etc: Des ventes 100$, 200$, etc

Sub CreerTCD()
Dim PTCache As PivotCache
Dim PT As PivotTable

Set PTCache = ActiveWorkbook.PivotCaches.Add _
(SourceType:=xlDatabase, _
SourceData:=Range("A1").CurrentRegion.Address)
' Seulement si tes données commence en A1
' Tasser les colonnes que tu ne veux pas avoir
Set PT = PTCache.CreatePivotTable _
(TableDestination:="", _
TableName:="MonTCD") ' A définir

With PT
.PivotFields("Champ1").Orientation = xlPageField
.PivotFields("Champ2").Orientation = xlColumnField
.PivotFields("Champ3").Orientation = xlRowField
.PivotFields("Champ4").Orientation = xlDataField
End With
End Sub


Starwing

-----Message d'origine-----
Bonjour,

J'ai un tableau dans ma feuille 1 avec plusieurs colonnes.

et je voudrai faire un tcd de certaines colonnes sur ce
tableau,et afficher

ce tcd sur un autre onglet

c'est a dire j'aurai donc un bouton de commande sur la
feuille 1 qui me

lancera mon tcd .

comment faire un tcd d'un tableau, je voudrai prendre que
quelques colonnes.


merci
.