[titre abstrait modifié] modifier le code macro excel auto-généré

Question

Bonjour;
j'ai obtenu le code ci-dessous à l'aide de l'enregistreur de macro. Et-il possible de modifier le code pour fixer soit même une plage de valeur, qui ne correspondrait pas à une plage de cellule, mais plutôt à un tableau de valeur.

Merci de votre aide  

Sub Graph()
'
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("A1:A10"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "TTTT"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "XXXX"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "YYYY"
    End With
End Sub

cs_Jack · Answer

Salut
D'après l'aide de VBA sur la fonction .SetSourceData que tu as pu consulter, il faut que ces données existent dans une des feuille (Source : Argument de type Range obligatoire).
Donc si tu as des données dans un tableau, il te faudra les coller dans un ensemble de cellule pour que la fonction puisse y faire référence.

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Prich · Answer

Salut
 ok merci...est-il possible de tracer un diagramme sans passer par l'enregistreur de macro?


thanks

CTAC · Answer

Bonjour,


Sub Creer_Graph()
    Dim Tbl1
    Tbl1 = Array(1, 3, 5, 7, 11, 8, 6, 2)
    ActiveSheet.Shapes.AddChart.Chart.SeriesCollection.NewSeries.Values = Tbl1
End Sub


ctac

[titre abstrait modifié] modifier le code macro excel auto-généré

3 réponses

Votre réponse

Discussions similaires