1 pièce(s) jointe(s)
problème source graphiques
Bonjour,
Aujourd'hui je viens vous exposer un soucis bien étrange que je rencontre avec la génération de graphiques via macro. Pour faire simple, tout mes graphiques se basent sur la même source, malgré que mon code disent l'inverse.
J'utilise une méthode par graphique. Je commence par aller chercher les informations nécessaires, les recopier dans une nouvelle feuille, créer un tcd avec ces données puis créer le graphique associé.
Malheureusement, tout mes graphiques semblent basés sur le premier tcd généré, malgré un SetSourceData source:=feuillevoulue.Range("H1") dont je suis sûr.
J'ai pensé d'abord que mon code s'appliquait à tout les graphiques, mais toutes les autres propriétés du graphique que je change après sont bien appliquées comme je le souhaite, sur le graphique voulu...
Bref, je perd la tête depuis ce matin. Je fournit un extrait du code (ainsi qu'un fichier contenant les macro buggés et des bouts de données) :
Il s'agit donc d'une des méthodes générant un graphique. Les autres suivent le même schéma (juste les données et la forme du tcd qui changent)
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
58
|
Sub GraphParEmploye(ByVal NbOffres As Integer, ByVal ddebut As Date, ByVal dfin As Date, ByRef ListeOffres() As String, ByRef ListeCT() As String)
'crée un graphique des dépenses par employés
Dim tri As Boolean
Dim debut As Integer
Dim i As Long
Dim j As Long
Dim k As Long
Dim tmp As String
Dim InfoDate As Date
Dim SemDate As String
Dim SemDateTmp As String
Dim EmpTmp As String
Dim zone As Range
Dim limite As Long
tri = False
TCDEMPLOYES.Range("A2", "F65536").Clear 'on supprime les dépenses d'anciennes recherches
Depenses.AfficheOuMasque False
'je fait du tri sur les données
'je cherche, copie et retrie mes données
'on crée le tableau croisé
With TCDEMPLOYES
limite = .Range("A1").End(xlDown).Row
Set zone = .Range(.Cells(1, 1), .Cells(limite, 6))
.Range("H1", "IV65536").Delete 'on supprime l'éventuel ancien tableau
.Visible = xlSheetVisible 'on affiche la feuille (on ne peut créer un graphique sur une feuille cachée)
ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=zone).CreatePivotTable _
TableDestination:=.Range("H3"), TableName:="Détails des dépenses par employés"
ThisWorkbook.ShowPivotTableFieldList = True 'création du tableau
'.Visible = xlSheetHidden 'on cache la feuille
With .PivotTables("Détails des dépenses par employés")
'je définit la position des données
End With
End With
'''''C'est ici que ça devient drôle'''''
'création du graphique
On Error Resume Next
Sheets("GRAPHEMPLOYE").Delete 'on supprime l'éventuel graphique déjà existant
Charts.Add 'on crée un graphique
With ActiveChart
.SetSourceData source:=TCDEMPLOYES.Range("H1") 'on définit sa source de données (ici le tableau)
.Location Where:=xlLocationAsNewSheet 'on le place sur une nouvelle feuille
.ChartType = xlAreaStacked 'on définit le type de graphique
ActiveSheet.Name = "GRAPHEMPLOYE" 'on nomme la feuille
.HasTitle = True
.ChartTitle.Characters.Text = "graphique des employés" 'on donne le titre du graphique
.Legend.Position = xlLegendPositionBottom 'on place la légende
.Legend.Font.Size = 7
End With
End Sub |
Je n'ai laissé que l'essentiel (je crois), si vous souhaitez plus d'informations je compléterais sans soucis.
Merci d'avance pour votre aide.
