Problème macro TCD

Version imprimable

Problème macro TCD

Bonjour à tous,

Cela fait un petit moment que je cherche sur internet la réponse à ma question mais sans trouver la solution. Je pense que la réponse est simplissime, mais je n'y arrive pas...

Ci-dessous, le code que j'ai réalisé pour pouvoir faire un TCD dans l'onglet "Base Achats" des données incluses dans l'onglet "Importation achats".
Je souhaite avoir en colonne les données "Article Ref" et pour chacune de ces données, la somme des poids "Poids total".

Cependant, lorsque je lance la macro, il m'affiche un message d'erreur Run-time error '1004'...

Si quelqu'un peut m'aider à débloquer mon problème, c'est avec grand plaisir que j'accepte.

Merci à chacun pour le temps accordé.

Bonne journée.

Cordialement,

Pierre-Yves
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub Creation_TCD_Achats() Dim num_ligne As Integer ActiveWorkbook.Sheets("Importation Achats").Select ActiveSheet.Cells(1, 1).Select Selection.End(xlDown).Select num_ligne = ActiveCell.Rows.Row Set donnees = Range(ActiveSheet.Cells(1, 1), ActiveSheet.Cells(num_ligne, 10)) ActiveWorkbook.Sheets("Base Achats").Select Cells.Clear Set pc1 = ActiveWorkbook.PivotCaches.Add(xlDatabase, "'" & donnees.Parent.Name & "'!" & donnees.Address(ReferenceStyle:=xlR1C1)) Set pt1 = pc1.CreatePivotTable(TableDestination:=Worksheets("Base Achats").Cells(3, 1), TableName:="Tableau1", DefaultVersion:=xlPivotTableVersion10) With ActiveSheet.PivotTables("Tableau1").PivotFields("Article Ref") .Orientation = xlRowField .Position = 1 End With ActiveSheet.PivotTables("Tableau1").PivotFields("Poids total").Function = xlSum End Sub

Bonjour,
Voici un exemple de code qui crée un tableau croisé dynamique nommé Mon Tableau et ce sur une nouvelle feuille
Les données que l'on croise se trouve sur la feuille [Base] et le code ajoute sur le champs ligne le champs Vendeur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Const shtName As String = "Base"
Const tcdName = "Mon Tableau"
Sub MacroTCD()
 Dim dbSource As Range: Set dbSource = ActiveWorkbook.Worksheets(shtName).Range("A1").CurrentRegion
 Dim tcd As PivotCaches: Set tcd = ActiveWorkbook.PivotCaches
 Sheets.Add before:=Worksheets(1)
 tcd.Create(SourceType:=xlDatabase, SourceData:=dbSource, Version:=xlPivotTableVersion10).CreatePivotTable Tabledestination:=Worksheets(1).Range("A3"), TableName:=tcdName, DefaultVersion:=xlPivotTableVersion10 '
 With ActiveSheet.PivotTables(tcdName).PivotFields("Vendeur")
 .Orientation = xlRowField
 .Position = 1
 End With
End Sub

15/07/2012, 18h29
pilou2000

Merci Corona pour votre réponse.

Cependant, le problème de la macro que j'ai donnée réside dans la ligne

Code:

ActiveSheet.PivotTables("Tableau1").PivotFields("Poids total").Function = xlSum

En effet, je souhaite pouvoir faire la somme des données correspondantes et malheureusement, il ne me semble pas que l'exemple que vous fournissez puisse me permettre de le faire.

Merci en tout cas pour votre réponse.

PY
15/07/2012, 18h33
Philippe Tulliez

Bonjour,
Pourtant, j'ai rencontré un problème dès les premières lignes mais comme dans ton message, tu parles d'une erreur mais tu ne dis pas à quelle ligne, c'est difficile d'aider quelqu'un ainsi.

Citation:

Bonjour à tous,
Cela fait un petit moment que je cherche sur internet la réponse à ma question mais sans trouver la solution. Je pense que la réponse est simplissime, mais je n'y arrive pas...
Ci-dessous, le code que j'ai réalisé pour pouvoir faire un TCD dans l'onglet "Base Achats" des données incluses dans l'onglet "Importation achats".
Je souhaite avoir en colonne les données "Article Ref" et pour chacune de ces données, la somme des poids "Poids total".
Cependant, lorsque je lance la macro, il m'affiche un message d'erreur Run-time error '1004'...
Si quelqu'un peut m'aider à débloquer mon problème, c'est avec grand plaisir que j'accepte.
Merci à chacun pour le temps accordé.
Bonne journée.
Cordialement,
Pierre-Yves
15/07/2012, 18h46
pilou2000

Effectivement, désolé, je m'en suis rendu compte après voir posté le message!
Sais-tu cependant comment faire une somme dans le TCD? J'imagine que c'est la base du TCD mais dans mon cas, je n'y arrive pas.
Merci encore.

Bonjour,
Voilà un code avec un TCD qui contient un champs en ligne, un champs en colonne, et un champs en valeur avec Somme
Bien entendu les noms des champs est à changer ainsi que la valeur de la constante shtName et éventuellement celle de la constante tcdName si son nom ne te convient pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
Const shtName As String = "Base"
Const tcdName = "Mon Tableau"
Sub MacroTCD()
 Dim dbSource As Range: Set dbSource = ActiveWorkbook.Worksheets(shtName).Range("A1").CurrentRegion
 Dim tcd As PivotCaches: Set tcd = ActiveWorkbook.PivotCaches
 Dim pvt As PivotTable
 
 Sheets.Add before:=Worksheets(1)
 tcd.Create(SourceType:=xlDatabase, SourceData:=dbSource, Version:=xlPivotTableVersion10).CreatePivotTable Tabledestination:=Worksheets(1).Range("A3"), TableName:=tcdName, DefaultVersion:=xlPivotTableVersion10 '
 Set pvt = ActiveSheet.PivotTables(tcdName)
 With pvt.PivotFields("Vendeur")
 .Orientation = xlRowField
 .Position = 1
 End With
 With pvt.PivotFields("Région")
 .Orientation = xlColumnField
 .Position = 1
 End With
 pvt.AddDataField pvt.PivotFields("Chiffre d'affaires"), "Somme de Chiffre d'affaires", xlSum
End Sub

16/07/2012, 08h56
pilou2000

Merci beaucoup pour ton aide. J'ai adapté le code donné et cela fonctionne parfaitement.