Graphique excel VBA légende

Clashme Messages postés 29 Date d'inscription vendredi 6 juin 2008 Statut Membre Dernière intervention 17 juillet 2008 - 7 juil. 2008 à 11:19
Clashme Messages postés 29 Date d'inscription vendredi 6 juin 2008 Statut Membre Dernière intervention 17 juillet 2008 - 8 juil. 2008 à 09:38
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

2 réponses

Clashme Messages postés 29 Date d'inscription vendredi 6 juin 2008 Statut Membre Dernière intervention 17 juillet 2008
7 juil. 2008 à 14:28
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
0
Clashme Messages postés 29 Date d'inscription vendredi 6 juin 2008 Statut Membre Dernière intervention 17 juillet 2008
8 juil. 2008 à 09:38
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 :(
0