Excel series on chartobjects

encore deux jours de perdu. Voilà un code qui marche, me demandez pas d'où vient cette soudaine envie de windows de me troller. Cherchez les modifs par vous même, moi j'y touche plus.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
For Each ch In xlrecep.Worksheets(i + 3).chartobjects
                    If ch.chart.charttitle.text.startswith("Pourcentage") Then
                        For Each se As Microsoft.Office.Interop.Excel.Series In ch.chart.SeriesCollection
                            For p = 1 To se.Values.length - 1
                                Console.Write(se.Values(p))
                            Next
                            Console.WriteLine()
                            For p = _list.Last To se.Values.length - 1
                                If maxserie < Double.Parse(se.Values(p)) Then
                                    maxserie = Double.Parse(se.Values(p))
                                End If
                            Next
                        Next
                            ch.chart.axes(Microsoft.Office.Interop.Excel.XlAxisType.xlValue).MaximumScale = maxserie + 10
                    End If
                Next