Type StructAdresse
Abs As String
Ord As String
End Type
Sub Graphiques()
Dim i as integer
Dim T() As StructAdresse
Dim A$
Set S = ActiveSheet
LastCol& = 182
ReDim T(1 To 96)
A$ = "=" & S.Name & "!"
ActiveSheet.ChartObjects("graph").Activate
For i = 1 to 96
ActiveChart.SeriesCollection.NewSeries
With ActiveChart.SeriesCollection(i)
.Name = "Test" & i
Ligne = S.Range("H39").Offset(0, 7) + 1
'°°° Adresse des X °°°
T(i).Abs = S.Range(S.Cells(1, 93), S.Cells(1, LastCol&)).Address(True, True, xlR1C1)
'°°° Adresse des Y °°°
T(i).Ord = S.Range(S.Cells(Ligne, 93), S.Cells(Ligne, LastCol&)).Address(True, True, xlR1C1)
'--- Construction des séries ---
.SeriesCollection(i).XValues = A$ & T(i).Abs
.SeriesCollection(i).Values = A$ & T(i).Ord
End with
next i
end if