Graphique sélection de données VBA

[roob1]

Bonjour,

J'ai un petit souci au niveau de VBA vs EXCEL : j'ai deux séries de valeurs que je calcule sous VBA (deux colonnes). Je souhaiterais tracer dans un graphe l'une en fonction de l'autre, mais je me sais pas comment le faire.


Pour l'instant j'utilise le début de code qui suit :

ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("Données!$F$2:$F$700")
ActiveChart.ChartType = xlXYScatterLinesNoMarkers

Et j'obtiens un graphe dont les abscisses sont les numéros de ligne, en ordonnée mes valeurs (les deux colonnes). Comment mettre la première colonne en abscisses, et la deuxième en ordonnées?

Merci d'avance,

roob1

 

[Pierrot93]

Re : Graphique sélection de données VBA

Bonjour Roob

peut être en utilisant l'argument "PlotBy", comme ceci :

ActiveChart.SetSourceData Source:=Range("Données!$F$2:$F$700"), PlotBy:=xlColumns

bon après midi
@+

 

[roob1]

Re : Graphique sélection de données VBA

Bonjour Roob

peut être en utilisant l'argument "PlotBy", comme ceci :

ActiveChart.SetSourceData Source:=Range("Données!$F$2:$F$700"), PlotBy:=xlColumns

bon après midi
@+

Merci beaucoup pour ta réponse.
Au fait, j'ai utilisé cet argument, et ça voulais pas marcher.
Je ne sais pas si je dois passer par des series, mais je pense que c'est possible de faire le graphique avec un simple range, non?

 

[Pierrot93]

Re : Graphique sélection de données VBA

Re

essaye comme ci dessous alors

Sub test()
Dim ch As Chart, sh As Worksheet
Set sh = ActiveSheet
Set ch = ActiveWorkbook.Charts.Add
With ch
    .SetSourceData sh.Range("F2:F700"), xlColumns
    .ChartType = xlXYScatterLinesNoMarkers
    .Location xlLocationAsObject, sh.Name
End With
End Sub

@+

 

[roob1]

Re : Graphique sélection de données VBA

Re

essaye comme ci dessous alors

Sub test()
Dim ch As Chart, sh As Worksheet
Set sh = ActiveSheet
Set ch = ActiveWorkbook.Charts.Add
With ch
    .SetSourceData sh.Range("F2:F700"), xlColumns
    .ChartType = xlXYScatterLinesNoMarkers
    .Location xlLocationAsObject, sh.Name
End With
End Sub

@+

Re
Ca marche niquel ! 🙂
Merci beuacoup, il fallait mettre xlXYScatterLinesNoMarkers alors que j'avais mis xlLines en ChartType.
Merci encore une fois.
Bonne aprem