Graphique et boucle

Résolu
Signaler
Messages postés
38
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
7 février 2014
-
Messages postés
38
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
7 février 2014
-
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

1 réponse

Messages postés
38
Date d'inscription
mercredi 31 octobre 2007
Statut
Membre
Dernière intervention
7 février 2014

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