Génération de graphique sur la même feuille que les données

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:

---

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:

---

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 :)

Bonjour,
ajoute

Code:

---

objChart.Location Where:=xlLocationAsObject, Name:="MonGraphique"

---

Citation:

---

Envoyé par mercatog

Bonjour,
ajoute

Code:

---

objChart.Location Where:=xlLocationAsObject, Name:="MonGraphique"

---

---

Marche pas 8O :roll:.

As tu adapté?

Code:

---

1 2 3 4 5 6

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 objChart.Location Where:=xlLocationAsObject, Name:="Feuil1"

---

tu dis?

ça marche :ccool:.

A cause de ça

Code:

---

Name:="Feuil1"

---

au lieu de

Code:

---

Name:="MonGraphique"

---

Par contre, sur mes abscisses, la date n'est pas triée par ordre de croissance, il l'affiche au pif :(.

C'est une autre question
tu es sur de tes données sont des dates?
et si tu faisais le graphe manuellement, le résultat est convenable?

Oui j'en suis sur, le format des cellules est de type date et le résultat est convenable manuellement.

Edit : Une toute dernière contrainte à ajouter, je veux que le graphe sois dynamique, qu'il tienne en compte toutes les modifs sur mon tableau, comme ça, j'aurai juste un document générique à adapter .

Pour l'update automatique du graphe, se référer à ce topic.