Graphe croisé dynamique par macro

Salut,

Utilise l'enregistreur de macro, tu auras un modèle de ce que tu souhaites faire

Re,

Utilises ce code :

ActiveSheet.PivotTableWizard _
SourceType:=xlDatabase, _
SourceData:="CS!R3C1:R5C10", _
TableDestination:=Range("A12"), _
TableName:="TCD1"

Ou
SourceData sont tes données (R1C1 =1ère ligne 1ère colonne ="A1") R3C1:R5C10=>"A3:E10"
TableDestination est la celulle où va être créé le tableau croisé dynamique
TableName est le nom du tableau qui va être créé

Ps : Si tu veux reproduire plusieurs tableaux avec ce code, Veille bien à ce que la celulle de destination ne soit pas déjà occupée et que le nom du nouveau tableau croisé dynamique ne soit pas déjà attribué.

Pour ajouter des champs, utilise ces instructions :

With ActiveSheet.PivotTables("TCD1").PivotFields("Barbu") 'Met barbu en ligne
        .Orientation = xlRowField
        .Position = 1
    End With
With ActiveSheet.PivotTables("TCD1").PivotFields("Colonne1") 'Met colonne1 en colonne
        .Orientation = xlColumnField
        .Position = 1
    End With

ActiveSheet.PivotTables("TCD1").AddDataField ActiveSheet.PivotTables("TCD1" _
        ).PivotFields("Barbu"), "Nombre de Barbu", xlCount 'Met Barbu en valeurs