jayjay2050
XLDnaute Nouveau
Bonjour,
Je voulais savoir s'il est possible de créer un graphique qui mette plusieurs séries de données sur un seul graphique. Il y a 120 courbes d'où ma volonté de le faire en vba.
je n 'arrive pas à faire sélectionner les séries de données automatiquement.
En gros, la première série de données est A1:B6000, la deuxième D1:E6000 et ainsi de suite.
Le problème est qu'il réalise un graphique en considérant la première colonne comme les abscisses, et toutes les autres comme des ordonnées ! Alors qu'elles sont rangées de sorte à avoir col1=abscisse, col2= ordonnées et ainsi de suite.
Mon problème concerne ça :
J 'essaye de faire défiler automatiquement le nom des colonnes mais je n'y arrive pas.
En gros je voudrais qu'au premier tour de boucle, il sélectionne A1:B6000 puis au deuxième tour de boucle D1:E6000, puis G1:H6000 et ainsi de suite.
Merci pour votre aide.
Je voulais savoir s'il est possible de créer un graphique qui mette plusieurs séries de données sur un seul graphique. Il y a 120 courbes d'où ma volonté de le faire en vba.
je n 'arrive pas à faire sélectionner les séries de données automatiquement.
En gros, la première série de données est A1:B6000, la deuxième D1:E6000 et ainsi de suite.
Code:
Dim LastCol As Integer, i As Integer
Sheets("Données1-2").Select
LastCol = Range("iv2").End(xlToLeft).Column 'on obtient la dernière colonne
Range(Worksheets("Données1-2").Cells(1, i), Worksheets("Données1-2").Cells(6000, i + 1)).Select
For i = 1 To LastCol - 1 Step 3
Range(Worksheets("Données1-2").Cells(1, i), Worksheets("Données1-2").Cells(6000, i + 1)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceDataSource:=Source:=Sheets("Données1-2").Range(Worksheets("Données1-2").Cells(1, 1), Worksheets("Données1-2").Cells(6000, LastCol)) 'Fait toutes les courbes en fonction des x de la premiere colonne
Next i
End Sub
Le problème est qu'il réalise un graphique en considérant la première colonne comme les abscisses, et toutes les autres comme des ordonnées ! Alors qu'elles sont rangées de sorte à avoir col1=abscisse, col2= ordonnées et ainsi de suite.
Mon problème concerne ça :
Code:
ActiveChart.SetSourceData Source:=Sheets("Données1-2" ).Range(X)
J 'essaye de faire défiler automatiquement le nom des colonnes mais je n'y arrive pas.
En gros je voudrais qu'au premier tour de boucle, il sélectionne A1:B6000 puis au deuxième tour de boucle D1:E6000, puis G1:H6000 et ainsi de suite.
Merci pour votre aide.
Dernière édition: