erreur dans "ActiveChart.SeriesCollection(1).Value

[vincent]

bonjour,

j'ai associé du code à une listbox pour qu'il présente dans un graphe la courbe associée au nom sélectionnné dans la listbox.
ca donne ceci :

Sub Zonecombinée672_QuandChangement()

    ActiveSheet.ChartObjects('Graphique R2').Activate
    pp = ActiveSheet.Cells(3, 1).Value + 7
    i = 88
    While ActiveSheet.Cells(pp, i) <> ''
    i = i + 1
    Wend
    
    
    data = '=R' & pp & 'C88:R' & pp & 'C' & i
    ActiveChart.SeriesCollection(1).Values = data
    chart_title = ActiveSheet.Cells(pp, 4)
    With ActiveChart
    .HasTitle = True
    .ChartTitle.Characters.Text = chart_title
    End With
end sub

le problème c'est que lorsque le code est sollicité, vb plante à la ligne

ActiveChart.SeriesCollection(1).Values = data

en me soumettant l'erreur suivante :'impossible de définir la propriété values de la classe series'.
votre serait fort bienvenue,
merci
vincent

 

[vincent]

ehu dsl le   n'existe pas dans mon code, je ne sais pas comment il a fait pour se retrouver là.

 

[vincent]

le '&nbsp'
sacrebleu

 

[MichelXld]

bonjour Vincent

j'espere que cet exemple pourra t'aider

Lien supprimé


bon apres midi
MichelXld

 

[vincent]

merci