Bonsoir à tous,

J'ai deux champs (Dates et Nbre), sur une feuille Excel, je voudrai récupéré les données de ces champs et en faire un graphe, mais le graphe doit se trouver sur la même feuille que les données. Voici un petit bout de code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AutoGraph()
 
 
 
Dim objChart As Chart, objRange As Range
 
    Set objRange = Worksheets("Feuil1").Range(Worksheets("Feuil1").Cells(1, 1), Worksheets("Feuil1").Cells(21, 3))
    Set objChart = ThisWorkbook.Charts.Add
    objChart.ChartType = xlXYScatter
    objChart.SetSourceData objRange, xlColumns
 
 
End Sub
Ou :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
 
Dim objChart As Chart, objRange As Range
 
    Set objRange = Worksheets("Feuil1").Range(Worksheets("Feuil1").Cells(1, 1), Worksheets("Feuil1").Cells(21, 3))
    Set objChart = ThisWorkbook.Charts.Add
    objChart.ChartType = xlXYScatter
    objChart.SeriesCollection.Add objRange, xlColumns, True, True
Quelles sont les modifs que je dois faire pour avoir cet état là ?.

Edit : La courbe doit être en D2