Positionner un graphique

[spitfire378]

Bonjour a tous

Voila mon probleme, je veux créer un graphique en VBA, a partir de données d'une feuille 2 par exemple vers une feuille 3. Seulement je voudrais que sur cette feuille 3 le graphique se positionne a partir de la cellule A10 par exemple.

Mon Code :

Range("J2:K7").Select
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range("J2:K7"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil3"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "MonSuperTitre"
    End With
ActiveChart.HasLegend = False

Merci d'avance.

 

[Pierrot93]

Re : Positionner un graphique

Bonjour Spitfire

comprends pas tout... mais essaye peut être comme ceci, non testé et sans conviction :

Option Explicit
Sub test()
Dim c As Integer, c1 As ChartObject
With Sheets("Feuil1")
For c = 250 To .ChartObjects.Count
    If c = 250 Then
        .ChartObjects(c).Top = .Range("B2").Top
        .ChartObjects(c).Left = .Range("B2").Left
    Else
        Set c1 = .ChartObjects(c - 1)
        .ChartObjects(c).Top = c1.BottomRightCell.Offset(2, 0).Top
        .ChartObjects(c).Left = c1.Left
    End If
Next c
End With
End Sub

bon après midi
@+

 

[spitfire378]

Re : Positionner un graphique

J'ai trouvé mon erreur, en faite pour supprimer les derniers graphiques générés j'avais créé une macro sélectionnant les cellules sur lesquelles mes graphiques étaient et je supprimais le contenu de ces cellules.

J'ai opté pour ce code la :

  Dim z As Integer
  Dim nbgraph
nbgraph = ActiveSheet.ChartObjects.Count
  If nbgraph > 0 Then
        For Each Legraph In ActiveSheet.ChartObjects
        Legraph.Delete
        Next
  End If

Et ensuite j'ai pu utiliser ton premier code sans probleme. C'est impec 🙂