Discussion :

[guizados]

bonjour a tous

est ce que quelqu'un peut m'aider à développer un macro pour tracer plusieurs courbes avec différents abscisses et ordonnés
courbe1=abscisse=colonne A;ordonné=colonne B
courbe2=abscisse=D;ordonné=E
courbe2=abscisse=G;ordonné=H
courbe2=abscisse=J;ordonné=K
...................

sachant que j'ai plus que 50 courbes

merci d'avance

[Menhir]

Utilise l'enregistreur automatique de macro en construisant la première courbe.

Ensuite, tu n'auras plus qu'à t'inspirer de la macro générée pour faire une boucle et générer toutes tes courbes.

[guizados]

merci menhir
mais j'arrive pas à trouver la boucle pour varier les colonne

[Menhir]

Regarde "For to" ans l'aide VBA intégrée à Excel.

[Kimy_Ire]

Bonjour guizados, Menhir,

Comme l'a suggéré Menhir, l'enregistreur de macro permet de partir simplement avec les bases.
Ainsi, tu as probablement trouvé quelque chose du type :

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
20
21
Sub Macro3()
'
' Macro3 Macro
'
 
'
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "='Feuil1'!$A$1:$A$25"
    ActiveChart.SeriesCollection(1).Values = "='Feuil1'!$B$1:$B$25"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(2).XValues = "='Feuil1'!$C$1:$C$25"
    ActiveChart.SeriesCollection(2).Values = "='Feuil1'!$D$1:$D$25"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(3).XValues = "='Feuil1'!$E$1:$E$25"
    ActiveChart.SeriesCollection(3).Values = "='Feuil1'!$F$1:$F$25"
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(4).XValues = "='Feuil1'!$G$1:$G$25"
    ActiveChart.SeriesCollection(4).Values = "='Feuil1'!$H$1:$H$25"
End Sub

Il n'y a plus qu'à adapter.
Ainsi, on trouve facilement quelque chose comme ci-dessous avec un peu de recherche et quelques tests :

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
Sub guizados()
 
With Worksheets("Feuil1")
    .Shapes.AddChart.Select
    With ActiveChart
        .ChartType = xlXYScatterSmoothNoMarkers
        Do Until .SeriesCollection.Count = 0
            .SeriesCollection(1).Delete
        Loop
        For i = 1 To Worksheets("Feuil1").Rows(1).Find("*", , , , , xlPrevious).Column Step 2
            .SeriesCollection.NewSeries
            .SeriesCollection((i + 1) / 2).XValues = Range(Worksheets("Feuil1").Cells(1, i), Worksheets("Feuil1").Cells(Worksheets("Feuil1").Columns(i).Find("*", , , , , xlPrevious).Row, i))
            .SeriesCollection((i + 1) / 2).Values = Range(Worksheets("Feuil1").Cells(1, i + 1), Worksheets("Feuil1").Cells(Worksheets("Feuil1").Columns(i + 1).Find("*", , , , , xlPrevious).Row, i + 1))
        Next i
    End With
End With
 
End Sub

En espérant que ça serve.

Cordialement,
Kimy