Discussion :

[pilou2000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

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

[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.

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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