Grosse galère pour créer un Tcd sous VBA

[Cuda]

Bonjour à tous,
je découvre VBA et les macros, mon niveau est plus que faible.

Pour commencer, j'ai fouillé partout sur le net, avec un succès plus que mitigé
Bon, je vais expliquer mon (mes) problème(s).

Je suis en train ed créer un tcd pour faire un tri et comptage de pièces.
Quand je passe par l'enrgistreur auto de macro, impossible de la relancer, toujours un erreur qui fait chier.
J'ai réussi à bidouiller pour la faire sauter, maintenant, je suis coincé sur les champs pour remplir mon TCD.

Déjà, la page où est le TCD est différente suivant si je le fais en manuel ou en macro...
Je n'arrive pas à ajouter les champs dans les bonnes colonnes...

Depuis lundi je suis sur le problème, c'est dire

Pour le moment, j'en suis là:

Sub Macro1()

Set Source = Worksheets("DG")
Set resultat = Worksheets("DG par coût")
resultat.Cells.Clear

Sheets("DG").Select
Range("B1").Select

Range("B1:G7" & Range("A25000").End(xlUp).Row).Select

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"DG!R1C2:R25000C7").CreatePivotTable TableDestination:= _
"'DG par coût'!R1C1", TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion10

End Sub

Help! I need some help

 

[mutzik]

Re : Grosse galère pour créer un Tcd sous VBA

bonjour,

aide nous et nous t'aiderons = merci de nous joindre un bout de ton fichier

 

[Cuda]

Re : Grosse galère pour créer un Tcd sous VBA

Bonjour,
désolé, je ne sais pas comment faire, je m'en suis pas mal tiré en fait:

Sub Macro1()

'Gestion des DG ar coût
'Nettoyage des feuilles
Set Source = Worksheets("DG")
Set resultat = Worksheets("DG par coût")
resultat.Cells.Clear

Sheets("DG").Select
Range("B1").Select

'Sélection des données dans le tableau DG
Range("B1:G7" & Range("A25000").End(xlUp).Row).Select


'Création du tableau croisé dynamique

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"DG!R1C2:R25000C7").CreatePivotTable TableDestination:= _
"'DG par coût'!R1C1", TableName:= _
"PivotTable2", DefaultVersion:=xlPivotTableVersion10

=> Le hic, c'est que la source de mon TCD variera en longueur (lignes), et je ne sais pas comment faire de sélection auto avec le PivotTable...
C'est prise de tête ce truc!