Discussion :

[botterc]

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 :

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

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...

[mercatog]

Code :

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

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

[botterc]

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