gestion des graphiques dans une macro

    Set Mycell = ThisWorkbook.Worksheets("Feuil1").Cells(10, 10)
    With ActiveChart
        .ChartArea.Left = Mycell.Left
        .ChartArea.Top = Mycell.Top
    End With

[COLOR=BLUE]Sub[/COLOR] graphique_test()
    [COLOR=GREEN]'oChart sera un objet Graphique[/COLOR]
    [COLOR=BLUE]Dim[/COLOR] oChart [COLOR=BLUE]As[/COLOR] ChartObject
    [COLOR=BLUE]With[/COLOR] ActiveSheet
        [COLOR=GREEN]'Effacer l'ancien graphique du nom de [i]"MonGraphique"[/i][/COLOR]
        [COLOR=GREEN]'S'il n'existe pas une erreur est levée[/COLOR]
        [COLOR=BLUE]On[/COLOR] [COLOR=BLUE]Error[/COLOR] [COLOR=BLUE]Resume[/COLOR] [COLOR=BLUE]Next[/COLOR]
        .ChartObjects([i]"MonGraphique"[/i]).Delete
        [COLOR=BLUE]On[/COLOR] [COLOR=BLUE]Error[/COLOR] [COLOR=BLUE]GoTo[/COLOR] 0
        [COLOR=BLUE]Set[/COLOR] oChart = .ChartObjects.Add(107, 231, 464.25, 214.5)
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
    
    [COLOR=GREEN]'Travailler sur l'objet graphique[/COLOR]
    [COLOR=BLUE]With[/COLOR] oChart
        .Name = [i]"MonGraphique"[/i]
        .TopLeftCell = Range([i]"D9"[/i])
        .Top = 107
        .Left = 231
        .Width = 464.25
        .Height = 214.5
        [COLOR=GREEN]'Travailler sur le graphique des données en tant que tel[/COLOR]
        [COLOR=BLUE]With[/COLOR] .Chart
            .ChartType = xlColumnClustered
            .SetSourceData Source:=Sheets([i]"Feuil1"[/i]).Range([i]"D5:I6"[/i]), PlotBy:=xlRows
            .HasTitle = [COLOR=BLUE]True[/COLOR]
            .ChartTitle.Characters.Text = [i]"test"[/i]
            .Axes(xlCategory, xlPrimary).HasTitle = [COLOR=BLUE]False[/COLOR]
            .Axes(xlValue, xlPrimary).HasTitle = [COLOR=BLUE]False[/COLOR]
        [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]
[COLOR=BLUE]Sub[/COLOR] GetDisposition()
    [COLOR=BLUE]Dim[/COLOR] oChart [COLOR=BLUE]As[/COLOR] ChartObject
    [COLOR=BLUE]Set[/COLOR] oChart = ActiveSheet.ChartObjects(1)
    [COLOR=BLUE]With[/COLOR] oChart
        [COLOR=BLUE]Debug[/COLOR].[COLOR=BLUE]Print[/COLOR] .TopLeftCell.Address, .Top, .Left, .Width, .Height
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
[COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]