Bonjour à tous,
Je finalise enfin mon long projet ...
Question sans rapport (j'ai pas trouvé sur le forum): est ce que .ShowAllData supprime les tris ou uniquement les filtres ?
Je suis assez banal en VBA, mais j'ai réussi en modifiant un peu l'enregistreur à un truc qui fonctionne et qui me permet de tracer 3 courbes (celle que j'ai selectionné, celle juste au dessus et celle juste au dessous).
Sub graph_final()
Dim i As Integer
For i = 4 To 23 Step 1
If i = Range("A35").Value Then
ActiveSheet.ChartObjects("Graph_final").Activate
Application.CutCopyMode = False
'Courbe choisi'
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = "=Calculator!$S" & i - 1
ActiveChart.FullSeriesCollection(1).XValues = "=Calculator!$I$1:$R$1"
ActiveChart.FullSeriesCollection(1).Values = "=Calculator!$I$" & i - 1 & ":$R$" & i - 1
'courbe de ratin supérieur de 1'
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(2).Name = "=Calculator!$S" & i - 2
ActiveChart.FullSeriesCollection(2).XValues = "=Calculator!$I$1:$R$1"
ActiveChart.FullSeriesCollection(2).Values = "=Calculator!$I$" & i - 2 & ":$R$" & i - 2
'Courbe de rating inférieur de 1'
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(3).Name = "=Calculator!$S" & i
ActiveChart.FullSeriesCollection(3).XValues = "=Calculator!$I$1:$R$1"
ActiveChart.FullSeriesCollection(3).Values = "=Calculator!$I$" & i & ":$R$" & i
End If
Next i
End Sub
Je voudrais savoir comment faire sous excel (j'adapterai en VBA) pour que sur le meme graphique, je puisse ploter des points. Oui je sais c'est idiot, mais quand je selectionne une plage de valeur (x,y) pour définir mes points, excel me trace une courbe ahah Merci une fois de plus