Discussion :

[elise1983]

Bonjour,
J'ai un problème car je n'arrive pas à afficher les items dans mon TDC. c'est certainement très simple mais je ne trouve pas comment faire. Pour le moment voici mon code;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        Selection).CreatePivotTable TableDestination:="", TableName:= _
        "Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion10
 
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("AGE")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique4").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique4").PivotFields("AGE"), "Nombre de AGE", _
        xlCount

[Drost]

Hello,

Qu'entends tu par item????