[COLOR=blue]Public[/COLOR] [COLOR=blue]WithEvents[/COLOR] Graph [COLOR=blue]As[/COLOR] Chart ' déclaration de la variable
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Graph_Select([COLOR=blue]ByVal[/COLOR] ElementID [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR], [COLOR=blue]ByVal[/COLOR] Arg1 [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR], [COLOR=blue]ByVal[/COLOR] Arg2 [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR])
[COLOR=green]'Chart est enfant de ChartObjects qui est enfant de Worsheet[/COLOR]
Graph.Parent.Parent.Range([I]"F4"[/I]) = [I]"L'objet sélectionné: "[/I] & RetourneDescriptionID(ElementID, Arg1, Arg2)
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]
[COLOR=blue]Private[/COLOR] [COLOR=blue]Sub[/COLOR] Workbook_Open()
InitGraph
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]