problème d'affichage des graphiques! Fermé

Question

Bonjour tout le monde,

J’ai créé un graphique avec la méthode Add chart, mon soucis  c’est j’arrive pas à contrôler l’affichage de mon graphique.

Quand je fais tourner ce bout de code , une nouvelle feuille  se rajoute (dont la quelle je trouve mon graphique) !!!

Alors que j’aimerai bien l’afficher dans ma feuille «( donnees ) par exemple sans rajouter d’autre feuilles.

Merci d’avance pour votre aide.

Nat.
------------------------------------------------------------------------------------------------------------------

Sub Test_Graphe()


Dim MonGraphe As Chart

Dim plage As Range


Set plage = Worksheets("donnees").Range(Cells(2, 1), Cells(50, 4))

Set MonGraphe = ThisWorkbook.Charts.Add

MonGraphe.ChartType = xlXYScatter

MonGraphe.SetSourceData plage, xlColumns


End Sub

lermite222 · Answer

Bonjour,
Pas tester mais si ca va pas j'y reviendrai.

Set MonGraphe = ActiveSheet.Charts.Add

NAT_001 · Answer

!!Ca marche pas 

j'ai tout essayer a ce niveaux :   Set MonGraphe = ActiveSheet.Charts.Add

                                            Set MonGraphe = Worksheets("donnees").Charts.Add

si tu as une autre idée stp...

lermite222 · Answer

J'ai retrouver ca dans mes archices... ca peu probablement te servire.
Sub graphique()
Dim graph As ChartObject
Dim pt As Point

    Set graph = Worksheets("feuil1").ChartObjects.Add(70, 6850, 430, 270)
    With graph.Chart
        .ChartType = xl3DPie
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = Worksheets("feuil1").Range("A1:A20")
        .SeriesCollection(1).Values = Worksheets("feuil1").Range("A21:A40")
        .SeriesCollection(1).Name = "Votre financement sur base annuelle"
        .SeriesCollection(1).HasDataLabels = True
        .SeriesCollection(1).DataLabels.Position = xlLabelPositionBestFit
        .SeriesCollection(1).HasLeaderLines = True
        .SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowValue, _
                AutoText:=True, LegendKey:=False, HasLeaderLines:=True
        '.SeriesCollection(1).LeaderLine.Border.ColorIndex = 20
        .HasLegend = False
        .ChartArea.Interior.ColorIndex = xlPatternNone
        .ChartArea.Border.ColorIndex = xlPatternNone
        .PlotArea.Interior.ColorIndex = xlPatternNone
        .SeriesCollection(1).ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent
        .SeriesCollection(1).DataLabels.Font.Size = 10
              '  .Name = "Arial"
              '  .FontStyle = "Normal"
              '  .Size = 12
        
    End With
    
    For Each pt In graph.Chart.SeriesCollection(1).Points
        pt.Explosion = 10
    Next pt
End Sub
A+

NAT_001 · Answer

Merci beaucoup, 

Je vais regarder ton code.

a+

Problème d'affichage des graphiques!

4 réponses

Discussions similaires