Discussion :

[_shuriken_]

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

[mercatog]

Bonjour,
ajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[_shuriken_]

Bonjour,
ajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Marche pas .

[mercatog]

As tu adapté?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[_shuriken_]

ça marche .

A cause de ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Name:="Feuil1"

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Name:="MonGraphique"

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

[mercatog]

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?

[_shuriken_]

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 .

[_shuriken_]

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