Affecter une macro à un élément d'un graphique

Bonjour,

Savez-vous s'il est possible d'affecter des macros à des éléments de graphiques ?
Lorsque par exemple, je clicke droit sur l'un des histogrammes de mon graphique pour lui affecter une macro précise, Excel ne me propose pas l'option "Affectez une macro".
Existe-il d'autres solutions ?

Merci d'avance
Benoît

Bonjour,

Tu peux le faire assez facilement si le graphique est sur une feuille de graphique. Par exemple, un clic sur la série n°2 d'un graphique provoque l'exécution d'une macro (mets ce code dans le module de la feuille) :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Chart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long) Select Case ElementID Case xlSeries If Arg1 = 2 Then MsgBox "Macro" End If End Select End Sub

---

Pour un graphique inclus dans un feuille de données, je vais regarder si c'est possible.

Pour un graphique dans une feuille de données, ajoute un module de classe nommé "EventClassModule" (j'ai copié un classeur en anglais, mais je ne sais pas qui remercier) dans lequel tu définis la classe "Chart" :

Code:

---

Public WithEvents myChartClass As Chart

---

Dans ce même module tu mets la macro qui déclenchera ton code (ici représenté par la macro "test" se trouvant dans un module de classe.

Code:

---

1 2 3 4 5

Private Sub myChartClass_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long) If ElementID = xlSeries And Arg1 = 1 Then test End If End Sub

---

qui se déclenche si la série n°1 est sélectée.

Au début, dans "thisWorkbook, mets :

Code:

---

1 2 3

Private Sub Workbook_Open() InitializeChart End Sub

---

"InitializeChart" est une macro d'un module standard qui initialise un instance de la classe :

Code:

---

1 2 3 4 5 6

Dim myClassModule As New EventClassModule   Sub InitializeChart() Set myClassModule.myChartClass = _ Sheets("Feuil1").ChartObjects(1).Chart End Sub

---

Enfin, la macro exécutée (remplace-la par la tienne) :

Code:

---

1 2 3

Sub test() MsgBox "macro" End Sub

---

Regarde le classeur joint.

super, merci beaucoup !

J'ai oublié la liste des éléments et la signification des arguments :

ElementID	 	Arg1	 	Arg2 
xlChartArea		None		None
xlChartTitle		None		None
xlPlotArea		None		None
xlLegend		None		None
xlFloor			None		None
xlWalls			None		None
xlCorners		None		None	
xlDataTable		None		None
xlSeries		SeriesIndex	PointIndex
xlDataLabel		SeriesIndex	PointIndex
xlTrendline		SeriesIndex	TrendLineIndex
xlErrorBars		SeriesIndex	None
xlXErrorBars		SeriesIndex	None
xlYErrorBars		SeriesIndex	None
xlLegendEntry		SeriesIndex	None
xlLegendKey		SeriesIndex	None
xlAxis			AxisIndex	AxisType
xlMajorGridlines	AxisIndex	AxisType
xlMinorGridlines	AxisIndex	AxisType
xlAxisTitle		AxisIndex	AxisType
xlDisplayUnitLabel	AxisIndex	AxisType
xlUpBars		GroupIndex	None
xlDownBars		GroupIndex	None
xlSeriesLines		GroupIndex	None
xlHiLoLines		GroupIndex	None
xlDropLines		GroupIndex	None
xlRadarAxisLabels	GroupIndex	None
xlShape			ShapeIndex	None
xlPivotChartDropZone	DropZoneType	None
xlPivotChartFieldButton	DropZoneType	PivotFieldIndex
xlNothing		None		None

merci, je l'avais trouvé sur un Internet