XL 2013 MACRO - prise en compte de plus de lignes

[ccilette]

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!

 

[danielco]

Bonjour,

C'est là :

    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

 

[ccilette]

Bonjour Daniel, merci de ton retour. Je ne trouve pas cette partie du code! Peux tu m'eclairer?
Si je comprends bien la il ne prend en compte que 2160 lignes c'est ça?

 

[danielco]

C'est dans le module 6 :

Oui, c'est ça, 2160 lignes.

Daniel

 

[ccilette]

Merci !!!!!!

 

[ccilette]

Je viens de tester, ça ne fonctionne pas plus.... Avez vous une autre idée?

 

[Dranreb]

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.

 

[danielco]

Je viens de tester, ça ne fonctionne pas plus.... Avez vous une autre idée?

Qu'est-ce que tu as changé ?

Daniel

 

[ccilette]

Ce que tu m'as conseille, j'ai mis 5000 mais ça me fait la même chose

 

[danielco]

mais encore ?

Daniel

 

[danielco]

Oups, autant pour moi, la macro est dans le module 2, pas le module 6.

Daniel