Création de TCD en VBA

Comment créer un TCD en VBA ?

Pour créer un tableau croisé dyn, utilise 

  
ActiveSheet.PivotTableWizard _    
SourceType:=xlDatabase, _    
SourceData:="Feuil1!R1C1:R4C2", _    
TableDestination:=Range("A5"), _    
TableName:="MonTCD"

Tu mets ce que tu dois dans SourceData (la plage de tes données) TableDestination (l'endroit où tu veux que le tableau soit collé) TableName (le nom de ton tableau). Puis tu ajoutes tes champs 

 ActiveSheet.PivotTables("MonTCD").AddFields RowFields:="N"   ActiveSheet.PivotTables("MonTCD").PivotFields("P").Orientation =  xlDataField

(champs "P" et "N" dans mon exemple qui doivent correspondre aux tritre de tes colonnes)
Le + simple est d'enregistrer la création avec l'enregisteur puis de décortiquer le code en apportant les modifs que tu souhaites (changer le nom, la source, la destination,...)

Auteur :

Mots clefs associés à cette page : , , ,

Quel version Excel pour ce code ?

Par scottsummers75, le lun 29/06/2009 - 14:24.

Bonjour,

Quelqu'un pourrait-il me dire pour quelle version d'excel ce code vba est-il compatible ?

Merci par avance

version

Par Misange, le lun 29/06/2009 - 16:48.

Il a été créé en tous cas avant la version 2007 mais il faudrait demander à l'auteur qu'on ne voit plus beaucoup sur quelle version exactement.
Le principe de toutes façons et les instructions sont quasiment identiques sur 2007. Le plus simple, comme indiqué dans le texte, c'est de déclencher l'enregistreur de macros et de s'en inspirer largement !

Misange