Problème au niveau de la source d'un graphique (lié à un TCD)

Version imprimable

Bonjour,

J'aimerai faire afficher un graphique lors de l'apparition d'un TCD sur un sheet.

En gros il faudrait que le graphique soit relié aux données du TCD, du coup j'ai fait un code permettant de prendre les données de ma BDD et de créé un TCD, jusque là, pas trop de souci, mais à l'affichage du TCD, le graphique est "VIERGE", il n'y a pas de données à l'intérieur...

J'ai essayé a plusieurs reprises de rentrer des données dans le SourceData de mon graphique sans succés, une idée sur ce problème ?

Mon code : (la partie en bleu à revoir donc...)

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Private Sub CommandButton2_Click() 'Bouton Graphique Croisé Dynamique
If Workbooks("Extraction").Sheets("BDD").Range("A1").Value = "" Then
MsgBox "Merci d'effectuer une extraction afin de pouvoir analyser des données.", vbCritical
Else
On Error Resume Next
Sheets("GCD").Activate

'Suppression des GCD et TCD Précédents
Sheets("GCD").Rows("6:1048000").Delete Shift:=xlUp
Sheets("GCD").Range("A6:ZZ1048000").ClearContents

'pour la dernière ligne de la BDD :
derlig = Sheets("BDD").Range("A" & Rows.Count).End(xlUp).Row

'pour la dernière colonne de la BDD :
dercol = Sheets("BDD").Cells(1, Cells.Columns.Count).End(xlToLeft).Column
LetCol = Split(Cells(1, dercol).Address, "$")(1)

'Création TCD et GCD avec mise en forme :

    Range("A1:" & LetCol & derlig).Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "BDD!R1C1:R" & derlig & "C" & dercol, Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="GCD!R10C1", TableName:="Tableau croisé dynamique1", _
        DefaultVersion:=xlPivotTableVersion15
    Sheets("GCD").Select

    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Recette" _
        )
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique1").PivotFields("Conformité Densité"), _
        "Somme de Conformité Densité", xlSum
    With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "Conformité Densité")
        .Orientation = xlPageField
        .Position = 1
    End With
    
    'Ajout d'un graphique
    Sheets("GCD").Activate
'    'pour la dernière ligne de la GCD :
'    derlig1 = Sheets("GCD").Range("A" & Rows.Count).End(xlUp).Row - 1
'    'pour la dernière colonne de la GCD :
'    dercol1 = Sheets("GCD").Cells(11, Cells.Columns.Count).End(xlToLeft).Column
'    LetCol1 = Split(Cells(1, dercol1).Address, "$")(1)

        ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
        ActiveChart.Parent.Name = "Graphique"
        'x = "GCD!A8"
        x = "[Extraction.xlsb]GCD!Tableau croisé dynamique1"
        ActiveChart.SetSourceData Source:=x

End If
End Sub

Merci d'avance.

Cordialement.

GK

24/05/2016, 12h49
78chris

Bonjour

Je n'ai pas détaillé ton code mais à partir d'un TCD on fait un GCD et il est automatiquement alimenté par les données et la structure du TCD.

Il est plus logique de supprimer les TCD, GCD que les cellules.
24/05/2016, 13h01
Ghost0000
Ta remarque est pertinente, j'ai adapté mon code afin de supprimer TCD et GCD:
Code:

1 2 Sheets("GCD").PivotTables("Tableau croisé dynamique1").Delete Sheets("GCD").ChartObjects("Graphique").Delete
Cependant, je n'arrive pas à supprimer le TCD avec cette ligne

Code:

Sheets("GCD").PivotTables("Tableau croisé dynamique1").Delete

Pour faire ce code (plus haut), j'ai utilisé l'enregistreur de macro, et l'enregistreur créer bien un TCD et un GCD à part... D'où ce code ...

Je continue de chercher...
24/05/2016, 14h22
78chris

Re

Il faut supprimer les GCD avant les TCD dont ils dépendent car sinon Excel les transforme en graphique classique basé sur les dernières valeurs connues.

J'ai fais ça avec le pas à pas VBA :
Code:

1 2 Sheets("GCD").ChartObjects("Graphique").Delete Sheets("GCD").PivotTables("Tableau croisé dynamique1").Delete
Je remarque que cela supprime bien le graphique mais pas le TCD.

La seule chose qui supprime le TCD c'est ce code : (mode débrouille)

Code:

Sheets("GCD").Rows("6:1048000").Delete Shift:=xlUp

Autre chose, ma question portait sur la source du graphique, pour le TCD et GCD, je les supprime avant leur création via un bouton.
Ma difficulté est sur le code suivant (avec la ligne en bleu, car mon graphique n'affiche aucune valeur...en fait il ne reconnait pas le TCD je pense...):
(Mon graphique doit pointer sur le TCD normalement)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 'Ajout d'un graphique Sheets("GCD").Activate 'pour la dernière ligne de la GCD : derlig1 = Sheets("GCD").Range("A" & Rows.Count).End(xlUp).Row - 1 'pour la dernière colonne de la GCD : dercol1 = Sheets("GCD").Cells(11, Cells.Columns.Count).End(xlToLeft).Column LetCol1 = Split(Cells(1, dercol1).Address, "$")(1) ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select ActiveChart.Parent.Name = "Graphique" x = Range("GCD!A11") 'x = "[Extraction.xlsb]GCD!Tableau croisé dynamique1" 'x = Range("A11").Value ActiveSheet.ChartObjects("Graphique").SetSourceData Source:=x

Je pointais sur la mauvaise feuille, j'ai vu ça avec le mode pas à pas ...

Code:

1
2
3
4
5
6
7
8
9
10
11
    'Ajout d'un graphique
    Sheets("GCD").Activate
    'pour la dernière ligne de la GCD :
    derlig1 = Sheets("GCD").Range("A" & Rows.Count).End(xlUp).Row - 1
    'pour la dernière colonne de la GCD :
    dercol1 = Sheets("GCD").Cells(11, Cells.Columns.Count).End(xlToLeft).Column
    Letcol1 = Split(Cells(1, dercol1).Address, "$")(1)

        ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
        ActiveChart.SetSourceData Source:=Sheets("GCD").Range("A11:" & Letcol1 & derlig1)        
        ActiveChart.Parent.Name = "Graphique 1"

Merci de votre aide !!!! :)

GK

24/05/2016, 15h50
78chris

Re

Pourquoi ne pas supprimer les données, puis remplir la même zone avec les nouvelles données et simplement actualiser le TCD ?
25/05/2016, 16h40
Ghost0000

Comment actualiser un TCD avec du code VBA ?
25/05/2016, 17h21
78chris

Re

Soit

Code:

Nom_de_la_feuille.PivotTables("nom_du_croisé_dynamique").PivotCache.Refresh

pour chaque TCD (ou boucle)
Soit

Code:

ActiveWorkbook.RefreshAll