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):

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
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.

Des idées?
Merci pour votre aide