Problème d'affichage des graphiques!

Fermé

NAT_001 - 29 mai 2008 à 11:31
NAT_001 Messages postés 2 Date d'inscription jeudi 29 mai 2008 Statut Membre Dernière intervention 29 mai 2008 - 29 mai 2008 à 12:23

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

A voir également:

Problème d'affichage des graphiques!
Affichage double ecran - Guide
Windows 11 affichage classique - Guide
Problème affichage fenêtre windows 10 - Guide
Graphiques excel - Guide
Modifier affichage heure iphone - Guide

4 réponses

Réponse 1 / 4

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
29 mai 2008 à 11:51

Bonjour,
Pas tester mais si ca va pas j'y reviendrai.

Set MonGraphe = ActiveSheet.Charts.Add

Réponse 2 / 4

NAT_001 Messages postés 2 Date d'inscription jeudi 29 mai 2008 Statut Membre Dernière intervention 29 mai 2008
29 mai 2008 à 12:08

!!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...

Réponse 3 / 4

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
29 mai 2008 à 12:17

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+

Réponse 4 / 4

NAT_001 Messages postés 2 Date d'inscription jeudi 29 mai 2008 Statut Membre Dernière intervention 29 mai 2008
29 mai 2008 à 12:23

Merci beaucoup,

Je vais regarder ton code.

a+

Discussions similaires

Leboncoin : j'ai un problème d'affichage

adele

Les paramètres d'affichage NVIDIA ne sont pas

Probleme d'affichage google chrome

Obtenir un affichage décimal sur ma Casio fx 92

Discussions similaires

Newsletters