Discussion :

[juju05]

Bonjour,

Je cherche à créer un tableau croisé dynamique à partir d'une base de données stockée dans la feuille nommée 'Charge'.

En colonne, je souhaite avoir en ligne la colonne nommée 'Département' (colonne C de ma base de données) et en colonne la colonne nommée 'Semaine' (colonne B de ma base de données). Ma donnée est la somme de la colonne 'Temps restant' (colonne J de ma base de données).
Les entêtes de colonne de ma base de données sont situées en ligne 7.

Ces informations sont stockées dans le même classeur dans la feuille nommée 'TCD'.

J'ai positionné ce morceau de code derrière le bouton situé sur ma base de données après la constitution de celle-ci.

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
 
 
 lig = lig - 1
 
   ActiveSheet.PivotTableWizard _
   SourceType:=xlDatabase, _
   SourceData:="Charge!A7J7:A" & lig & "J" & lig, _
   TableDestination:="TCD!A1C1", _
   TableName:="MonTCD"
 
   ActiveSheet.PivotTables("Tableaucroisédynamique").AddFields RowFields:= _
   "Département", ColumnFields:="Semaine"
 
   With ActiveSheet.PivotTables("Tableaucroisédynamique").PivotFields("Montant")
         .Orientation = xlDataField
         .Caption = "Temps restant"
         .Function = xlSum
         .NumberFormat = "# ##0"
   End With

J'ai le message "PivotTableWizard de la classe Worksheet a échoué". (erreur d'exécution 1004).

Je ne sais pas comment m'y prendre pour résoudre ce problème.

Julien.

[Fvandermeulen]

Salut,

A priori il y a un problème dans ta place source

Code :

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

SourceData:="Charge!A7J7:A" & lig & "J" & lig, _

Je connais pas de cellule A7J7

Ne serait-ce pas

Code :

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

SourceData:="Charge!A7:J" & lig, _

A+