Je ne maitrise plus les séries

Bonjour,

Lorsque je clique sur S01,S02,S03,S04,S05,... mon graphique se met à jour, et les valeurs sont ok, MAIS, à chaque fois les séries s'inversent sur le graphique.

Ce n'est pas trop gênant en soi vu que le graphique est juste, mais comme je le présente régulièrement, ça va désorienter mes auditeurs, et de plus, j'aimerais bien comprendre pourquoi il réagit comme ça ...

Si quelqu'un a un avis/solution, je suis preneur

bonjour,

pas de solution de mon coté...juste des remarques :

sur mon PC pro (MS 2010), cas 2 est toujours en bleu, cas 3 toujours en orange et cas 6 toujours en vert. Par contre, selon le "S0X" cliqué, dans la légende du graphe, cas 2 et cas 3 s'inversent...en gardant la même couleur.

Cependant, chez moi la macro buggue à chaque clic sur "S01", "S02"...même si visiblement le graphique s'actualise...

gigi777 a écrit :

bonjour,

pas de solution de mon coté...juste des remarques :

sur mon PC pro (MS 2010), cas 2 est toujours en bleu, cas 3 toujours en orange et cas 6 toujours en vert. Par contre, selon le "S0X" cliqué, dans la légende du graphe, cas 2 et cas 3 s'inversent...en gardant la même couleur.

Cependant, chez moi la macro buggue à chaque clic sur "S01", "S02"...même si visiblement le graphique s'actualise...

Assez déroutant quand même...

Par contre, ou que je clique chez moi, aucun plantage..... Mystère.

Je vais essayer de modifier le post initial pour être plus précis..

après, comme j'y connais rien en VBA, je ne vais pas t'être d'une grande aide

gigi777 a écrit :

après, comme j'y connais rien en VBA, je ne vais pas t'être d'une grande aide

Par exemple, le fait que ça plante chez toi ne me rassure pas trop. je suis en train de tester sur d'autres ordis de mon boulot, et pour l'instant, rien d'anormal...

Sur quelle ligne de la macro ça s'arrête ?

visiblement sur cette ligne :

ActiveChart.SetElement (msoElementChartTitleAboveChart)

Pour rappel : c'est sous MS2010 que j'ai testé (au boulot), pas sous 2003 (comme indique ma signature...car c'est ce que j'ai chez moi...)

gigi777 a écrit :

visiblement sur cette ligne :

ActiveChart.SetElement (msoElementChartTitleAboveChart)

Mais après... je décroche

Bonjour,

Désolé, je n'étais pas en vacances, mais en déplacement professionnel.....

essaie ainsi :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Aff As String
Dim ChObj As ChartObject
Dim LesSeries, LesLignes
Dim Cel As Range
Dim I As Byte
'Aff = Feuil1.Cells(1, 1).Value
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B1:BB1")) Is Nothing Then
    LesSeries = Array("Cas_2", "Cas_3", "Cas_6")
    LesLignes = Array(3, 4, 7)
    Set ChObj = ActiveSheet.ChartObjects("Graphique 3")
    For I = 0 To UBound(LesSeries)
        Set Cel = Cells(LesLignes(I), Target.Column)
        ChObj.Chart.SeriesCollection(LesSeries(I)).Formula = "=SERIES('BILAN SEMAINE'!$A$" & LesLignes(I) & ",'BILAN SEMAINE'!$B$1:$AA$1,'BILAN SEMAINE'!" & Cel.Address & "," & I + 1 & ")"
    Next I
ActiveChart.SetElement (msoElementChartTitleAboveChart)
'ActiveChart.ChartTitle.Text = Aff & " - " & Target
ActiveChart.ChartTitle.Text = " - " & Target
End If
Target.Select
End Sub

Bon courage

cousinhub a écrit :

Bonjour,

Désolé, je n'étais pas en vacances, mais en déplacement professionnel.....

Bon courage

Encore une fois ton code a résolu mon petit Pb.

Je suis très frustré parce que d'habitude en décomposant j'arrive à saisir les solutions... Mais là ... Totalement hermétique ...

Allez cette fois ci tu es autorisé à prendre des vacances. Mais pas trop longtemps