XL 2013 MACRO - prise en compte de plus de lignes

ccilette

XLDnaute Nouveau
Bonjour a tous,

un ancien collègue avait créé les macros du tableau suivant. Celle créant le TCD ne prend qu'un nombre de lignes limitées, et je n'arrive pas à savoir ou modifier ce paramètre pour qu'il prenne environ 20000 lignes en compte,

pouvez vous m'aider?


Merci bien à vous!
 

Pièces jointes

  • extraction KRONOS.xlsm
    70.4 KB · Affichages: 8

danielco

XLDnaute Accro
Bonjour,

C'est là :

VB:
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Kronos!R1C1:R2160C17", Version:=6).CreatePivotTable TableDestination:= _
        "Sheet5!R3C1", TableName:="PivotTable1", DefaultVersion:=6

Il faut remplacer "Kronos!R1C1:R2160C17" par une plage suffisamment grande ou par une plage dynamique ou par un tableau.

A toi de voir.

Cordialement.

Daniel
 

danielco

XLDnaute Accro
C'est dans le module 6 :

Annotation 2019-08-26 173300.png

Oui, c'est ça, 2160 lignes.

Daniel
 

Dranreb

XLDnaute Barbatruc
Bonjour.
Pfff… On déroule pratiquement plus de code à mettre en place un TCD qu'à déterminer le résultat avec ma fonction Gigogne. Et en plus on n'a aucune idée de ce qu'on fait. Pareil avec Power Query et tout ça. Mais il est vrai que c'est un point de vue d'ancien programmeur, très à l'aise avec presque n'importe quel algorithme.
Mais puisque j'en parle, je joins un classeur précurseur d'un complément, qui demande à s'installer lors de son ouverture.
 

Pièces jointes

  • GigIdx.xlsm
    90.3 KB · Affichages: 2

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 947
Membres
101 849
dernier inscrit
florentMIG