Détecter un graphe qui est sélectionné

Bonjour à tous...

J'ai 3 graphiques incorporés dans une feuille de calcul, et j'aimerai savoir lequel est sélectionné...

J'ai tenté des trucs du genre

Code:

---

1 2 3 4 5

for i=0 to ActiveSheet.ChartObjects.Count if ActiveSheet.ChartObjects(i).selected = true then msgbox "graphique sélectionné" & activeSheet.ChartObjects(i).name end if next i

---

Mais bien sur, ce n'est pas aussi simple et ça ne fonctionne pas du tout.
Et j'aimerai ne pas passer par les évènements (Private Sub Chart_Activate()). Car si on insère un autre graphique dans la feuille, il faut rajouter du code pour gérer cet évènement et ce n'est pas pratique....

Merci pour votre aide...

Code:

---

1 2 3

Dim Chrt As Chart Set Chrt = ActiveChart If Not Chrt Is Nothing Then MsgBox "graphique sélectionné: " & Chrt.Name

---

donne le nom du graphique sélectionné de la feuille active

Bonjour

Merci pour ton aide, ça marche parfaitement bien.
J'avais trouvé le code suivant : VAR = ActiveChart.name mais si je n'avais pas de graphe sélectionné cela ne fonctionnait pas...

ton code marche au top

Merci et @ bientôt