Discussion :

[Kmilla]

Bonjour à tous !

Le code suivant me permet de récupérer le nom de ma série en la sélectionnant sur mon graphique croisé dynamique en barres cumulées.
J'aimerais aussi pouvoir sélectionner juste un point, et pouvoir récupérer le nom de la série.
Et must du must, j'aimerais pouvoir sélectionner une valeur de ma légende, et récupérer le nom de la série.

Code :

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

1
2
3
4
5
6
 
If TypeName(Selection) = "Series" Then
 
NomSerie = Selection.Name
 
End If

Si quelqu'un a une piste, ce serait super

Bonne journée,

Kmilla

[Kmilla]

Pour récupérer le nom de la série d'un point j'ai fait ça :

Code :

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

1
2
3
4
5
6
 
ElseIf TypeName(Selection) = "Point" Then
a() = Split(Selection.Name, "P")
b() = Split(a(0), "S")
 
Nom = ActiveChart.SeriesCollection(CDbl(b(1))).Name

Si quelqu'un a une idée brillante pour les légendes, je suis preneuse.


EDIT
Je m'en suis sortie avec ExecuteExcel4Macro("SELECTION()")

[78chris]

Bonjour

Pour un point de la légende a priori

Code :

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

If TypeName(Selection) = "LegendEntry" Then Nomserie = ActiveChart.SeriesCollection(Selection.Index).Name

Edit : comme quoi les macros Excel4 faisaient des choses que VBA ne fait pas toujours de façon simple...

[Kmilla]

Merci Chris, ça marche aussi

[78chris]

Re

Pour le point tu peux éviter le double split : le split au "S" suffit.

Ce sujet m'a interpellé : dans quel contexte l'utilises-tu ?

[Kmilla]

Hmm quelque chose m'echappe peut-être mais le nom est de la forme S17P26, donc si je veux récupérer le numéro de la série (17), il me faut splitter en S et en P, non ?

J'ai un graphique croisé dynamique en barre cumulées (avec en abcisse le temps), et je souhaite en sélectionnant un point/série/élement de légende, pouvoir déplacer mes blocs vers la droite, vers la gauche, les supprimer, en ajouter de nouveaux avec le clavier.
J'ai fait ça avec les méthodes OnKey

Code :

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

1
2
3
4
5
6
Sub Init()
    Application.OnKey "^{RIGHT}", "DecalerDroite" ' on ctrl + right arrow
    Application.OnKey "^{LEFT}", "DecalerGauche" ' on ctrl + left arrow
    Application.OnKey "^{DELETE}", "Suppr" ' on ctrl + delete
    Application.OnKey "^{INSERT}", "Extend" ' on ctrl + insert
End Sub

Ca marche très bien, le résultat est très fluide et agréable à utiliser