Discussion :

[manu789]

Bonjour,

Je souhaite appliquer à un Graphique un Type de Graphique personnalisé.

( Après actualisation du TCD, le graph reprend automatiquement le style par défaut )

Merci

Manu

[cb_60]

Bonjour
Cela devrais suffire
Mise à jour du TCD et rappel du graph personnalisé

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub Macro1()
 
    ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
    ActiveSheet.ChartObjects(1).Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ApplyCustomType ChartType:=xlUserDefined, TypeName:="toto"
    Range("A1").Select
End Sub

tableau croisé dynamique1 = nom du TCD
chartobjects(1)=graph 1
typename toto = nom du graph perso

A mettre avec un bouton sur la feuille