Signification code VBA graphique

Pingui · 6 Décembre 2005

Bonjour,
Après avoir fait une macro en VBA avec un 'enregistrement' excel, le code obtenu et legerement modifiée est :

Code:

Sub Macro1()
i = 3
j = 2
k = 4
    Range(Cells(i, j), Cells(i, k)).Select
    
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    
    ActiveChart.SetSourceData Source:=Sheets('Resumé').Range(Cells(i, j), Cells(i, k)), PlotBy:= _
        xlRows
     
    ActiveChart.SeriesCollection(1).XValues = '=Resumé!R2C2:R2C5'
    ActiveChart.Location Where:=xlLocationAsObject, Name:='Resumé'
    
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = 'Stock Initial 001'
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With

End Sub

En fait cela ne marche pas quand je le lance mais si j'enleve les lignes suivante cela marche!

Code:

ActiveChart.SetSourceData Source:=Sheets('Resumé').Range(Cells(i, j), Cells(i, k)), PlotBy:= _
        xlRows

Je voudrais juste savoir pourquoi sans ces lignes, la macro marche alors que sinon il y a une erreur.

Merci d'avance

Pingui

Creepy · 6 Décembre 2005

Bonjour le Forum, Pingui,

J'ai copier/coller ton code et il marche très bien.

Je ne vois qu'une chose qui ne marcherait pas. N'as tu pas essayé de jouer ta macro sur un autre feuille que 'Resumé'.

Parce que si je renomme une feuille en 'Resumé' et que je lance la macro avec cette feuille séléctionée ca marche très bien !

Voila

@+

Creepy

pingui · 6 Décembre 2005

Je sais pas moi quand je le lance cela m'ecrit

erreur d'execution '1004'
La methode 'cells' de l'objet '_global' à echoué

quand j'essaye le debugage, l'erreur se met sur la ligne

Code:

ActiveChart.SetSourceData Source:=Sheets('Resumé').Range(Cells(i, j), Cells(i, k)), PlotBy:= _
        xlRows

Si j'enleve cette ligne cela marche.

Je sais pas pourquoi

Merci encore

Signification code VBA graphique

Pingui

Guest

Creepy

XLDnaute Accro

pingui

Guest

Discussions similaires