création d'un TCD avec code VBA

  • Initiateur de la discussion Initiateur de la discussion misswise
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

misswise

XLDnaute Nouveau
Salut;
Je suis débutante en VBA, j'ai besoin de créer un TCD automatique via code VBA.
La macro que j'ai développé ne s'exécute pas les pivotcatches restent vident, je sais pas pourquoi. Si quelqu'un pourrait m'aider je serais très reconnaissante.

Vous trouverez ci dessous mon code



Sub makepivottable()
Dim pt As PivotTable
Dim cacheofpt As PivotCache ' source des données
Dim pf As PivotField ' les noms des champs sont les pivot field
Dim pi As PivotItem ' les valeurs que prend chaque variable sont les pivot item



On Error Resume Next ' s'il ya càd pas de TCD le programme va passer à l'étape suivante
Sheets(pivot).Select
ActiveSheet.PivotTables(MyTable).TableRange2.Clear 'supprimer le TCD s'il existe
'create pivotcache

Sheets(Data).Select
Set cacheofpt = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheets(Data).Range("a1😀14"), Version:=xlPivotTableVersion12)


'create pivot table
Sheets(pivot).Select
Set pt = pivot.PivotTables.Add(PivotCache:=caccheofpt, tabledestination:=Sheets(pivot).Range("A"), tablename:="MyTable")



With pt
.PivotFields("date").Orientation = xlColumnField
.PivotFields("nom").Orientation = xlRowField
End With
end sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
2 K
Compte Supprimé 979
C
Réponses
1
Affichages
873
Réponses
69
Affichages
9 K
Réponses
4
Affichages
1 K
Retour