1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Sub Trend()
Dim Plage As Range
Dim NbLig As Integer, Deb As Integer
Dim Graf As ChartObject
On Error Resume Next
Set Plage = Application.InputBox("Select your range from line 9 to line 35. Exemple: B9:B35", "Sélection Range", Type:=8)
NbLig = Plage.Rows.Count
On Error GoTo 0
If NbLig > 0 Then
Deb = Plage.Cells(1).Row
With Sheets("value1")
Set Graf = .ChartObjects.Add(.Range("H3").Left, .Range("H3").Top, 400, 200)
With Graf.Chart
.SetSourceData Source:=Plage
.ChartType = xlLine
.SeriesCollection(1).XValues = Sheets("value1").Range("A" & Deb & ":A" & Deb + NbLig - 1)
End With
End With
Set Graf = Nothing
Set Plage = Nothing
End If
End Sub |
Partager