Graphique sélection de données VBA

roob1 · 3 Mars 2008

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 :

Code:

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 · 3 Mars 2008

Re : Graphique sélection de données VBA

Bonjour Roob

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

Code:

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

bon après midi
@+

roob1 · 3 Mars 2008

Re : Graphique sélection de données VBA

Pierrot93 à dit:
Bonjour Roob

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

Code:

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 · 3 Mars 2008

Re : Graphique sélection de données VBA

Re

essaye comme ci dessous alors

Code:

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 · 3 Mars 2008

Re : Graphique sélection de données VBA

Pierrot93 à dit:

Re

essaye comme ci dessous alors

Code:

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

Graphique sélection de données VBA

roob1

Guest

Pierrot93

XLDnaute Barbatruc

roob1

Guest

Pierrot93

XLDnaute Barbatruc

roob1

Guest

Discussions similaires

Graphique sélection de données VBA

roob1

Guest

Pierrot93

XLDnaute Barbatruc

roob1

Guest

Pierrot93

XLDnaute Barbatruc

roob1

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency