graphique et boucleRésolu

Question

Bonjour, je suis toujours prisonier avec un problème de graphique. Je
voudrais générer des graphique automatique avec en absice les dates (ça
marche) et les données générés dans ma boucle (ça marche pas)


voila ma boucle de conception de graphique:


Sub graph(selection As Range, selection2 As Range)


Dim oGraphic As Object

     Charts.Add

    ActiveChart.ChartType = xlXYScatterSmooth

    ActiveChart.SetSourceData Source:=Sheets("Accueil").Range("I38")

    ActiveChart.SeriesCollection.NewSeries    

    ActiveChart.SeriesCollection(1).XValues = selection      ' "=ATIR!R2C1:R38C1"  ma macro presentait les données de cette façon !

    ActiveChart.SeriesCollection(1).Values = selection2        ' "=ATIR!R2C5:R38C5"  ma macro presentait les données de cette façon !

    

    ActiveChart.SeriesCollection(1).Name = "=""nom"""

    ActiveChart.Location Where:=xlLocationAsObject, Name:="Accueil"

    

    With ActiveChart

        .HasAxis(xlCategory, xlPrimary) = True

        .HasAxis(xlValue, xlPrimary) = True

    End With

    

    ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic

    ActiveChart.HasLegend = True

    ActiveChart.HasDataTable = True

    ActiveChart.Legend.select

    'selection.Position = xlTop

    ActiveWindow.Visible = False

    'Windows("Import.xls").Activate

Voila ma boucle qui va appeller la methode de construction du graphique:

Sub fgraph(Sname As String)

        

        Dim Boucle As Integer

        Dim DerniereValeur As Long

          

   DerniereValeur = Worksheets(Sname).Rows(1).Find("").Column - 1

      

    For Boucle = DerniereValeur To DerniereValeur - 2 Step -1

          

    Call graph(Worksheets(Sname).Range("A2:A200"), Worksheets(Sname).Columns(Boucle))           

                         

    Next

    Set NewSheet = Nothing

End Sub

selection marche très bien car il est fixe

selection2 ne marche pas il ne veut pas prendre "columns" apparement....

Avez vous une idée ???


Merci d'avance

madjb · Accepted Answer

J'ai trouvé une solution

j'ai pris un graphique de type LineMarkers au lieu de ScatterSmooth

est j'ai mis :




ActiveChart.SetSourceData Source:=selection2, PlotBy:= _

        xlColumns

    ActiveChart.SeriesCollection(1).XValues =selection

Graphique et boucle

1 réponse

Votre réponse

Discussions similaires