Discussion :

[crissud]

Bonsoir

Je veux créer un tableau dynamique croisé à partir d'une macro.

J'ai d'abord cherché, mais tout ce que j'ai essayé ne règle pas mon erreur
erreur 1004 Méthode AddFields de la classe pivot à échoué

J'ai 4 colonne, Ste,Tai,PCG,Montant
je souhaite obtenir
PCG en ligne
Ste en colonne
Montant en pivot



Un petit coup main, pour terminer cette macro
merci d'avance

Christian

[mayekeul]

bonjour,

il n'y a pas grand choses dans le fichiers zip...

[crissud]

Bonjour,

Ah oui en effet !
Ce n'est pas comme ça que l'on va m'aider

Mais j'ai trouver à force de cherche
C'est du à la référence de la plage lu, excel travaille L1:C1 OU A:B
Sauf que cela ne lui suffit pas pour comprendre il lui faut $ au moins devant L1

voir http://support.microsoft.com/kb/461639/fr

d'autre part, j'ai préféré demander à la macro de trouver elle même la plage de mes données à lire

Je vous mets mon code qui va bien
En bleu les références à adapter

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
25
Sub BalanceGene()
Dim Plage As String
 
 
Plage = Sheets("Data").Range(Cells(1, 1), Cells(Sheets("Data").Range("A65536").End(xlUp).Row, _
                Sheets("Data").Range("IV1").End(xlToLeft).Column)).Address
Cells.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
Plage).CreatePivotTable TableDestination:="", TableName:= _
"Tableaucroisédynamique2"
 
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableaucroisédynamique2").SmallGrid = False
ActiveSheet.PivotTables("Tableaucroisédynamique2").AddFields RowFields:= _
"PCG", ColumnFields:="Ste"
With ActiveSheet.PivotTables("Tableaucroisédynamique2").PivotFields("Montant")
.Orientation = xlDataField
.Caption = "Somme Montant"
 
.Function = xlSum
.NumberFormat = "# ##0"
End With
Application.CommandBars("PivotTable").Visible = False
End Sub

A+
Christian