Bonjour,
Je débute avec VBA et les macros. Je voudrais créer une macro qui permet de créer un TCD.
Mon tableau contient un nombre de colonne fixe: (ville, année, ..) et ligne fixe.
Dans cet exemple, je compte le nombre d'occurence de chaque année (colonne C).
En résultat, j'ai un tableau avec seulement 2 lignes (Nombre de YR qui est le titre, et total).
Je voudrais que le TCD affiche toutes les années.
Voici mon code ( avecl'enregistreur de macro):
En résultat, j'ai un tableau avec seulement 2 lignes (Nombre de YR qui est le titre, et total).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Private Sub CommandButton1_Click() Range("C1:C20").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Feuil1!R1C3:R20C3").CreatePivotTable TableDestination:= _ "[graph.xls]Feuil1!R23C3", TableName:="Tableau croisé dynamique1" ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _ PivotTables("Tableau croisé dynamique1").PivotFields("YR"), "Nombre de YR", _ xlCount Range("C3").Select With ActiveSheet.PivotTables("Tableau croisé dynamique1") .ColumnGrand = False .RowGrand = False End With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Nombre de YR" _ ).Function = xlCount End Sub
Je voudrais que le TCD affiche toutes les années.
Des idées?
Merci pour votre aide
Partager