graphique + ajout courbeRésolu

Question

Bonjour &#224; tous,
Je recherche le moyen d'inserer par l'interm&#233;diaire d'une boucle, des courbes avec valeurs,noms et onglet variables.
Ma partie AddNewSeries ne fonctionne pas, il me parle d'objet je sais pas quoi, bref !!!! je bloque A l'aide !!!!!!!!!

Sub tri()
    Application.ScreenUpdating = False
    
    ActiveSheet.Name = "Tab_main"
    
    Charts.Add
    Worksheets(1).Activate
    TotalCol = ActiveSheet.UsedRange.Columns.Count
    For TotalCol = TotalCol To 2 Step -1
    
    Sheets.Add
    Columns(1).Value = Sheets("Tab_main").Columns(1).Value
    Columns(2).Value = Sheets("Tab_main").Columns(TotalCol).Value

    Call copi_coll
    Call AddNewSeries
    Next TotalCol
End Sub
Sub copi_coll()
    Selection.AutoFilter Field:=2, Criteria1:="<>"
    Range("A1:B1999").Select
    Selection.Copy
    Range("E1:F1999").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Range("A2000", [B2000].End(xlDown)).Select
    Selection.Copy
    Range("E:F").SpecialCells(xlCellTypeBlanks).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Selection.AutoFilter Field:=2
    ActiveSheet.Name = [B1]
    Columns("A:D").Select
    Selection.Delete Shift:=xlToLeft
End Sub

Sub AddNewSeries()
DernierOnglet = ActiveSheet.Name
    With ActiveChart.SeriesCollection.NewSeries
        .Name = DernierOnglet
        .Values = Sheets(DernierOnglet).Range("A1", [A1].End(xlDown))
        .XValues = Sheets(DernierOnglet).Range("B1", [B1].End(xlDown))
    End With
End Sub

jrivet · Accepted Answer

Salut,

Essaie ceci

Sub AddNewSeries()
Dim MonGraph As Chart
Set MonGraph = ActiveWorkbook.Charts.Add
DernierOnglet = ActiveSheet.Name
    With ActiveChart.SeriesCollection.NewSeries
        .Name = DernierOnglet
        .Values = Sheets(DernierOnglet).Range("A1", [A1].End(xlDown))
        .XValues = Sheets(DernierOnglet).Range("B1", [B1].End(xlDown))
    End With
End Sub

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

yod6666 · Answer

Je pense avoir avoir trouver la solution mais je voudrais l'avoir en nuage de point ou lui indiquer ?
Sub AddNewSeries()
DernierOnglet = ActiveSheet.Name
Charts(1).Activate
    With ActiveChart.SeriesCollection.NewSeries
        .Name = DernierOnglet
        .Values = Sheets(DernierOnglet).Range("A:A")
        .XValues = Sheets(DernierOnglet).Range("B:B")
    End With
End Sub

yod6666 · Answer

Je pense avoir avoir trouver la solution mais je voudrais l'avoir en nuage de point ou lui indiquer ?
Sub AddNewSeries()
DernierOnglet = ActiveSheet.Name
Charts(1).Activate
    With ActiveChart.SeriesCollection.NewSeries
        .Name = DernierOnglet
        .Values = Sheets(DernierOnglet).Range("A:A")
        .XValues = Sheets(DernierOnglet).Range("B:B")
    End With
End Sub

yod6666 · Answer

Je pense avoir avoir trouver la solution mais je voudrais l'avoir en nuage de point ou lui indiquer ?
Sub AddNewSeries()
DernierOnglet = ActiveSheet.Name
Charts(1).Activate
    With ActiveChart.SeriesCollection.NewSeries
        .Name = DernierOnglet
        .Values = Sheets(DernierOnglet).Range("A:A")
        .XValues = Sheets(DernierOnglet).Range("B:B")
    End With
End Sub

yod6666 · Answer

Je pense avoir avoir trouver la solution mais je voudrais l'avoir en nuage de point ou lui indiquer ?
Sub AddNewSeries()
DernierOnglet = ActiveSheet.Name
Charts(1).Activate
    With ActiveChart.SeriesCollection.NewSeries
        .Name = DernierOnglet
        .Values = Sheets(DernierOnglet).Range("A:A")
        .XValues = Sheets(DernierOnglet).Range("B:B")
    End With
End Sub

yod6666 · Answer

J'ai eu des prob&#232;mes au niveau de Range du coup j'ai fais avec une variable. Mais le probl&#232;me reste sur le type de graphe (nuage de point) et je n'arrive pas &#224; l'avoir que sur un graphe .
Sub AddNewSeries()
DernierOnglet = ActiveSheet.Name

    Dim r1 As Range, r2 As Range, MaPlage As Range
    Set r1 = Range("A2", [A2].End(xlDown))
    Set r2 = Range("B2", [B2].End(xlDown))
    Dim MonGraph As Chart
    Set MonGraph = ActiveWorkbook.Charts.Add
    With MonGraph.SeriesCollection.NewSeries
        .Name = DernierOnglet
        .Values = Sheets(DernierOnglet).Range("r1")
        .XValues = Sheets(DernierOnglet).Range("r2")
    End With
End Sub

jrivet · Answer

Re,

Essaie de voir si ca te va.

ActiveChart.ChartType = xlXYScatter

Note: As tu essay&#233; l'enregistreur de macro, c est bien utile pour trouver comment Excel fait ses op&#233;rations.

@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

yod6666 · Answer

ok j'ai r&#233;ussi pour le type mais j'ai toujour le pb de courbe , car &#224; chaque boucle il me rajoute un nouveau graphique sur un nouveau onglet et moi je voudrai un graphique sur un onglet avec toute les courbes dedans

jrivet · Answer

re,

Et bien mets ceci:

 Dim MonGraph As Chart
    Set MonGraph = ActiveWorkbook.Charts.Add

Avant d'appeler ta fonction AddNewSeries.
@+, Julien 
Pensez: Moteur de Recherche, R&#233;ponse Accept&#233;e

yod6666 · Answer

Il bloque ici  : erreur : objet requis
With MonGraph.SeriesCollection.NewSeries

codes :

Sub AddNewSeries()
DernierOnglet = ActiveSheet.Name
Dim r1 As Range, r2 As Range
    Set r1 = Range("A2", [A2].End(xlDown))
    Set r2 = Range("B2", [B2].End(xlDown))
    With MonGraph.SeriesCollection.NewSeries
        .Name = DernierOnglet
        .Values = Sheets(DernierOnglet).Range("r1")
        .XValues = Sheets(DernierOnglet).Range("r2")
        MonGraph.ChartType = xlXYScatterSmoothNoMarkers
    End With
End Sub

yod6666 · Answer

ca marche si j'int&#232;gre direct dans ma boucle mais quand il attaque la boucle suivante il me dit
Impossible de d&#233;finir la propri&#232;t&#233; XVALUES de la class s&#233;rie 
??????????????????????

yod6666 · Answer

je pense que je sais pas &#233;crire mes variabe r1 et r2 dans le range

yod6666 · Answer

ay&#233; 
je donne mon code &#224; qui le voudra, merci pour ton aide.

Code:
Sub tri()
    
    Application.ScreenUpdating = False
    
    ActiveSheet.Name = "Tab_main"
    Dim MonGraph As Chart
    Dim NouvSerie As Series
    Set MonGraph = ActiveWorkbook.Charts.Add
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "toto"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Temps"
    End With
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    Selection.Position = xlBottom
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScale = 0
        .MaximumScaleIsAuto = True
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
    ActiveChart.Legend.Select
    With Selection.Border
        .Weight = xlHairline
        .LineStyle = xlNone
    End With
    Selection.Shadow = False
    Selection.Interior.ColorIndex = xlAutomatic
    MonGraph.SeriesCollection(1).Delete
    Worksheets(1).Activate
    TotalCol = ActiveSheet.UsedRange.Columns.Count
    For TotalCol = TotalCol To 2 Step -1
    
    Sheets.Add
    Columns(1).Value = Sheets("Tab_main").Columns(1).Value
    Columns(2).Value = Sheets("Tab_main").Columns(TotalCol).Value

    Call copi_coll
    
    DernierOnglet = ActiveSheet.Name
    ActiveSheet.UsedRange.Select
    Dim sel1 As Range, sel2 As Range
    Set sel1 = Range("A2", [A2].End(xlDown))
    Set sel2 = Range("B2", [B2].End(xlDown))
    With ActiveWorkbook.Worksheets(1)
        Set NouvSerie = MonGraph.SeriesCollection.NewSeries
        NouvSerie.Name = DernierOnglet
        NouvSerie.Values = sel2
        NouvSerie.XValues = sel1
        MonGraph.ChartType = xlXYScatterSmoothNoMarkers
    End With

    Next TotalCol
End Sub

Graphique + ajout courbe

13 réponses

Discussions similaires