je cherche à changer le format de toute les séries de données d'un Pivot chart lorsqu'une valeur change.
La macro bug lorsque je change la valeur en question; je n'arrive pas à comprendre pourquoi; je pense qu'il manque une spécificité dans le code...
Voilà ce qui s'affiche lorsque la valeur change :
"Object doesn't support this property or method", en surlignant la ligne
.Format.BarShape = xlCylinder
Voici le code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B73")) Is Nothing Then
ActiveSheet.ChartObjects("Chart 4").Activate
Dim objSeries As Series
With ActiveChart
For Each objSeries In .SeriesCollection
With objSeries
.Format.BarShape = xlCylinder
End With
Next
End With
End If
End Sub
Si quelqu'un a une idée je suis preneur...
Merci !!
A voir également:
VBA - format de toutes les Séries de données dans Pivot Chart
