bonjour,
voici un nouveau problème, pouvez vous m aider?
Je voudrais créer une macro qui quand je clic sur un bouton apparaisse un graphique dynamique croisé sur la feuille avec les données de la propre feuille ou je me trouve et disparait avec un clic droit de ma souris.
J ai créé cette macro avec l enregistreur de macro mais là il créait une feuille.
je précise chaque feuille porte un nom différent. Merci d avance.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub GrafDynamicCroisé()
'
' GrafDynamicCroisé Macro
'
 
'selection de la cellule du tableau
 
    Range("A18").Select
    'ajout d une feuille
    Sheets.Add
    'creation du gdc
 
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Tableau43", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="Feuil3!L1C1", TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=xlPivotTableVersion12
    'selection de la feuille creer
    Sheets("Feuil3").Select
    'selection ou creer le tableau
    Cells(1, 1).Select
    'style du tableau
 
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("Feuil3!$A$1:$C$18")
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.ChartStyle = 42
    ActiveChart.ClearToMatchStyle
    'selectionne les champs necessaire
 
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("PREL 2006"), _
        "Somme de PREL 2006", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("PREL total 2007"), _
        "Somme de PREL total 2007", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("PREL Total 2008"), _
        "Somme de PREL Total 2008", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("Total ch demande 2009"), _
        "Somme de Total ch demande 2009", xlSum
    ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
        PivotTables("Tableau croisé dynamique2").PivotFields("ATT Logique"), _
        "Somme de ATT Logique", xlSum
End Sub