Discussion :

[fanlabise31]

Bonjour,

Mon problème est le suivant:

Je cherche à écrire une macro qui devra rajouter des étiquettes de données sur des graphiques. Pour cela j'ai besoin d'obtenir le nom de la feuille qui contient les données à partir d'une "seriescollection". Je suis certain qu'il y a une solution très simple mais je le trouve pas.

Merci d'avance pour votre aide.

[Menhir]

Pour scruter toutes les feuilles d'un classeur, il suffit d'un :

Code :

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

For each LaFiche in Worksheets

Ensuite, tu regardes dans chacune si elle contient un graphique avec la propriété Count de sa méthode ChartObjects.

[Marc-L]

Bonjour, bonjour !

Conformément aux règles de ce forum, concernant le VBA ce serait mieux de poster dans le bon forum …

Sinon la réponse est dans l'aide intégrée au VBA : une série est attachée à un graphique lui même rattaché à une feuille,

donc la propriété Parent du graphique pointe bien sur la feuille et en lui ajoutant la propriété Name …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[fanlabise31]

Bonjour,

Menhir, mon graphique n'est pas un objet il se situe sur une page de type Graph.

Marc, "ActiveChart.Parent.Name" me renvoie le nom du fichier. Je cherche à obtenir le nom de la feuille où se situe les données utilisées dans le graph.

Sinon j'ai reçu un message qui me dit que ma discussion a été déplacée, mais il semble que ça ne soit pas le cas. Est ce que je peux faire quelque-chose pour la mettre au bon endroit?


Merci pour votre aide.

[Menhir]

Encore plus facile :

Code :

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

For each LeGraph in Charts

[fanlabise31]

Menhir,

Mon fichier contient plusieurs pages de données et de nombreux graphiques. Il arrive sur certains graphiques que des données soient issues de plusieurs feuilles. J'ai besoin en partant du graphique de connaitre le nom de la feuille ou se situe les données d'une "SeriesCollection".

Je pense à ce type de commande:

Code :

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

ActiveChart.SeriesCollection(1).Values.Sheets.Name

Mais ça me renvoie une erreur

Merci

[Menhir]

Je pense à ce type de commande: ActiveChart.SeriesCollection(1).Values.Sheets.Name

Un Sheets derrière un Values, c'est sûr que ça ne va pas le faire.
Tout comme un Name derrière un Sheets (au pluriel). Un Name, c'est pour un objet, pas une collection.

Tu as essayé ?

Code :

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

SeriesCollection(1).Parent.Name

Au pire, tu peux essayer de récupérer SeriesCollection(1).Formula dans une variable String et de la disséquer.

[fanlabise31]

SeriesCollection(1).Parent.Name ne fonctionne pas (méthode non gérée)

Je vais essayer ton idée et te tiens au courant.

Merci

[Marc-L]

Normal, il faut respecter la hiérarchie - suivre l'ordre … - des objets !

Merci de poster ton code …

[fanlabise31]

Code :

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

feuille = ActiveChart.SeriesCollection(1).Parent.Name

[Marc-L]

LoL ‼

Sinon la réponse est dans l'aide intégrée au VBA : une série est attachée à un graphique lui même rattaché à une feuille

Le parent d'une série est donc un graphique ! La feuille est le parent du graphique …


__________________________________________________________________________________________
Définition Je me suis fait un bleu : expression couramment utilisée par Zahia !

[fanlabise31]

Le parent d'un graphique est le fichier et non la feuille.

[Menhir]

Le parent d'un graphique est le fichier et non la feuille.

Mais que représente le parent de la série.
Essaye de créer une variable de type Variant, d'y mettre ActiveChart.SeriesCollection(1).Parent, de mettre un stop sur ton programme juste après et de regarder ce qu'elle contient.

A mon avis, on loupe un intermédiaire entre la série et le parent. Un truc qui pointerait uniquement sur les valeurs Y de la série. Je ne le trouve pas dans l'aide.
Peut-être "Points" mais ça m'étonnerait, ça semble plutôt désigner l'élément graphique.
Ce n'est pas non plus Values qui ne renvoie que des valeurs sans lien avec la source.

[Marc-L]

Suffit pourtant de lire l'aide de Chart, le B-A-BA …


__________________________________________________________________________________________
Définition Oui-Oui : fils illégitime de Sissi !

[mercatog]

Une fonction qui permet de donner le nom de la feuille des données de la série k d'un graphique Ch

Code :

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

1
2
3
4
5
6
7
8
Function WorkheetDataName(ByVal Ch As Chart, ByVal k As Integer) As String
Dim T As String
 
If k <= Ch.SeriesCollection.Count Then
    T = Mid(Ch.SeriesCollection(k).Formula, 9)
    WorkheetDataName = Replace(Left(T, InStr(T, "!") - 1), "'", "")
End If
End Function

[NVCfrm]

Une fonction qui permet de donner le nom de la feuille des données de la série k d'un graphique Ch

Code :

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

1
2
3
4
5
6
7
8
Function WorkheetDataName(ByVal Ch As Chart, ByVal k As Integer) As String
Dim T As String
 
If k <= Ch.SeriesCollection.Count Then
    T = Mid(Ch.SeriesCollection(k).Formula, 9)
    WorkheetDataName = Replace(Left(T, InStr(T, "!") - 1), "'", "")
End If
End Function

:appo:
Bonne idée!

[fanlabise31]

Bonjour,

Ta fonction me renvoie le "nomdelasérie,nomdelafeuillededonnées". Mais en la modifiant un peu avec les fonctions (que tu mas fait découvrir) mid et replace, j'arrive parfaitement a mes fins.

Code :

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

1
2
3
4
5
    T = Mid(ActiveChart.SeriesCollection(1).Formula, 9)
    wd = Replace(Left(T, InStr(T, "!") - 1), "'", "")
    mypos = InStr(1, wd, ",")
    wd2 = Mid(wd, 1, mypos)
   nomfeuille = Replace(wd, wd2, "")

Merci à tous.