Bonjour,

Je souhaiterais automatiser la création de graphiques (X,Y) à partir de macro, j'utilise deux colonnes de 100 lignes. 1ere colonne représente X et la deuxième colonne représente Y.

j'ai crée une Macro VBL, mais le grapch généré dessine 100 points mais pas de courbe (X,Y), qlqn pour rectifier la macro svp

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Sub CreateChart()
 
 Range(Cells(1, 1), Cells(100, 2)).Select
 
       myrange = Selection.Address
 mysheetname = ActiveSheet.Name
    ActiveSheet.ChartObjects.Add(300, 20, 600, 200).Select
    Application.CutCopyMode = False
 
    ActiveChart.ChartWizard _
       Source:=Sheets(mysheetname).Range(myrange), _
       Gallery:=xlLine, Format:=4, PlotBy:=xlRows, _
       CategoryLabels:=1, SeriesLabels:=1, HasLegend:=1, _
       Title:="titre", CategoryTitle:="time [sec]", _
       ValueTitle:="data", ExtraTitle:=""
 
 End Sub