Graphique excel VBA légende

Question

bonjour tout le monde

je fait à l'aide de ce code la mise a jour d'un graphique : 


col = Cells(1, 3).Value + 2
        
        I = 6
        ligne = 0
        While Worksheets("Compilation charges Cab").Cells(I, 1).Value <> ""
        I = I + 1 'changement de ligne
        ligne = ligne + 1
        Wend
Sheets("blabla").Select
        Sheets("blabla").Range(Range("A5"), Range("A5").Offset(ligne, col).Address).Select
        
        m2$ = Selection.Address
        Dim Index As Integer

        Index = 2
        'Charts(Index).ChartArea.Select
        Charts(Index).SetSourceData Source:=Sheets("blabla").Range(m2$), PlotBy:=xlRows
        
  tout fonctionne mais la légende des abscisses sont par défaut tandis que moi je voudrais prendre la premiere ligne de ma selection en légende

je me suis intérreser à http://vb.developpez.com/faqvba/?page=3.5
et sa fait 3 heures que j'essais de l'adapter mais sans succés

j'ai aussi essayer de voir en enregistrant une macro
ce qui me donne ActiveChart.SeriesCollection(1).XValues = _
        "='blabla'!R5C4:R5C29"
mes seriescollection dépend de mon adresse..
si quelqu'un pourrais m'aider ! ca serrais avec un grd plaisir

Clashme · Answer

je me suis mal exprimer je pense :)

j'ai sur les 3 premiere colonnes : nom produit , catégorie , en stock / ou plus en stock ( avec des filtres pour pouvoir avoir les graph ciblé selon les produit, sotck ou autre...)

puis ensuite de ma colonne 4 à ....
jai un calendrier en semaine ! qui commence à ma semaine de mon année actuelle jusqu'a 2011... 
....2008..........................2009
ex  28 29 30................52 1 2 3
et sur ce calendrier j'ai mes charges de mes produits de répartis
grace au code que jai posté au dessus ( j'en est mis qu'un bout) je selectionne à l'aide de 3 boutons
en prenant mes 3 premieres colonnes pour les avoir en légendes un range : soit de mon année actuelle soit de mon année actuelle n + 1 ou toutes mes années.
mon probleme est que les valeurs des mon axes des abscisses sont par défaut 1 2 3 4 5 6 ....
alors que je voudrais mes semaines 28 29 30..... 
je sais le faire manuellement
mais je voudrais l'indroduire dans le code de ma création de mon graph

voilà jespere avoir était clair

merci d'avance pour vos future réponse

Clashme · Answer

rebonjour!
j'ai tenté se petit bout de code
mais j'ai une erreur lors de mon set graph
pourtant ma feuille de donnée est la 6eme et mon graph est le 2eme

Dim Graph As Chart
        Set Graph = ActiveWorkbook.Worksheets(6).ChartObjects(2).Chart
        With Graph
        Graph.SeriesCollection.NewSeries
        Chart.SeriesCollection.Values = "='Compilation charges Cab'!L5C1:L5C3"
        End With

je ni compren plsu rien :(

Graphique excel VBA légende

2 réponses

Votre réponse

Discussions similaires