> Tous les forums > Forum Bureautique
 VBA: tableau croisée dynamique - nombre de ligneSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
alf049
  Posté le 15/11/2010 @ 15:58 
Aller en bas de la page 
Petit astucien

Bonjour,

débutant en VBA, j'utilise l'enregistreur de macro pour faire mes outils étapes par étapes.

Dans le cas présent, je tente de faire un TCD pour un tableau de 5 colonnes sur 50 000 lignes, sur la même page. Quand j'excécute ma macro, tout de suite j'ai le droit à la fenêtre de débogage et il me met en jaune ce block:

Sub Macro15()
'
' Macro15 Macro
Range("A1").Select
ActiveWindow.ScrollRow = 268
ActiveWindow.ScrollRow = 1513
ActiveWindow.ScrollRow = 6760
ActiveWindow.ScrollRow = 15920
ActiveWindow.ScrollRow = 28371
ActiveWindow.ScrollRow = 31306
ActiveWindow.ScrollRow = 32018
ActiveWindow.ScrollRow = 32107
ActiveWindow.ScrollRow = 32729
ActiveWindow.ScrollRow = 34419
ActiveWindow.ScrollRow = 38243
ActiveWindow.ScrollRow = 41445
ActiveWindow.ScrollRow = 45447
ActiveWindow.ScrollRow = 46692
Range("A1:H46718").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"NLIV!L1C1:L50000C8", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="NLIV!L2C14", TableName:="Tableau croisé dynamique21", _
DefaultVersion:=xlPivotTableVersion10

Amis expert, pourriez-vous m'aider à décripter, comprendre puis corriger le bug ?

Publicité
louvigne
 Posté le 15/11/2010 à 16:02 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

slt

tu devrais regarder cet exellent conseil de notre ami galopin01

alf049
 Posté le 15/11/2010 à 16:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

re,

ci-joint le lien http://cjoint.com/?3lpqwW7N7tr

Au fait je travail sur du 2007

alf049
 Posté le 15/11/2010 à 18:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir,

agacé que clea ne fonctionne pas sur mon portable, je me suis mis sur une UC qui se trouve à coté de moi et ca fonctionne à merveille.

L'un d'entre vous a-t-il déjà rencontré ce soucis ? avec un portable ? si oui qu'elle solution a-t-il trouvée

galopin01
 Posté le 15/11/2010 à 19:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Bon déjà tu pourrais commencer par faire le ménage :

supprime tous les :

Range("A1").Select
ActiveWindow.ScrollRow = 268
ActiveWindow.ScrollRow = 1513
ActiveWindow.ScrollRow = 6760
ActiveWindow.ScrollRow = 15920
ActiveWindow.ScrollRow = 28371
ActiveWindow.ScrollRow = 31306
ActiveWindow.ScrollRow = 32018
ActiveWindow.ScrollRow = 32107
ActiveWindow.ScrollRow = 32729
ActiveWindow.ScrollRow = 34419
ActiveWindow.ScrollRow = 38243
ActiveWindow.ScrollRow = 41445
ActiveWindow.ScrollRow = 45447
ActiveWindow.ScrollRow = 46692

qui ne sont que des résidus d'enregistrement inutiles.

Ensuite tu remplaces par

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"TEST!R1C1:R52027C6").CreatePivotTable TableDestination:= _
"TEST!R2C9", TableName:="Galopin", _
DefaultVersion:=xlPivotTableVersion10
Sheets...

Si Galopin ne te plait pas tu peux mettre libellule ou papillon peu importe...
L'important c'est que les 5 autres PivotTables("blabla") soit baptisées de la même manière.

Evite de garder le nom par défaut donné à l'enregistrement (Tableau croisé dynamique21...)

Pour le reste ça devrait coller

A+



Modifié par galopin01 le 15/11/2010 19:15
alf049
 Posté le 17/11/2010 à 10:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

merci Galopin.

Dans l'immédiat je ne peux pas vérifier si ce que tu m'as préconisé est bon car il me dit qu'il y a une erreur de synthaxe sur la ligne:

"DefaultVersion:=xlPivotTableVersion10",

il a attend une ")" ou un autre caractère.

Merci pour ton aide.

alf049
 Posté le 18/11/2010 à 13:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

il semblerait que mon "petit" soucis qui m'agace grandement ne touve d'aide.

merci aux 79 qui ont consulté.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Nombre valeurs uniques tableau croisé dynamique
Transformer un tableau Calc en HTML dynamique/application
XLS 2010 tableau croisé dynamique
vba : ds tableau, insérer ligne (non entière) avec reprise formule
option tableau croisé dynamique excel 2007
Tableau croisé dynamique
Tableau croisé dynamique suppression des totaux
Faire un tri dans un tableau dynamique Excel 2010
Word : supprimer ligne après tableau
ajouter automatiquement une ligne dans tableau
Plus de sujets relatifs à VBA: tableau croisée dynamique - nombre de ligne
 > Tous les forums > Forum Bureautique