Discussion :

[alonet]

Bonjour,
Je suis en train de faire un graphique sur excel en utilisant VBA. Mon problème vient de ce ligne de code que j'ai copié depuis une autre programme mais je comprendre pas. Est ce que quelqu’un pourra m'expliquer?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set objChart = ActiveSheet.ChartObjects(1).Chart

Le numero (1) dans ChartObjects, ça sert à quoi?

Merci

[zoom61]

Le (1) correspond à un des nommages des graphiques... si tu n'as qu'un graphique, la valeur doit être (0).


@+.

[alonet]

Le (1) correspond à un des nommages des graphiques... si tu n'as qu'un graphique, la valeur doit être (0).


@+.

Salut, Merci pour ta réponse. En effet, j'ai qu'un graphique, j'ai suivi ton conseille, j'ai mis zero (0), mais j'obtient toujours le même erreur : Erreur d’exécution 1004.

Tu pourras me donner une autre idée?
Merci

[SfJ5Rpw8]

bonjour,


Il semble que tu utilise ActiveSheet cela est possible si tu maîtrise bien l'utilisateur de ta macro mieux vaux spécifier la feuille à utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkBook.sheets("LeNomdeMaFeuille").ChartObjects(0).Chart

ensuite est-tu sur que ta feuille comporte bien un graphique ? tu peu aussi tester cela en début de macro.

[alonet]

bonjour,


Il semble que tu utilise ActiveSheet cela est possible si tu maîtrise bien l'utilisateur de ta macro mieux vaux spécifier la feuille à utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkBook.sheets("LeNomdeMaFeuille").ChartObjects(0).Chart

ensuite est-tu sur que ta feuille comporte bien un graphique ? tu peu aussi tester cela en début de macro.

Salut,
Merci por ton aide mais ça pas marché ta solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub DynamicChart()
    ' Adjusts the embedded chart on Sheet3.
    Dim objChart As Chart, objChObject As ChartObject
    Dim objSelection As Range, objSrcData As Range, objCategories As Range
    Dim r As Long, c As Long
 
    ' Activate the sheet that contains the chart.
    ActiveWorkbook.Sheets(6).Activate
 
    ' Access the chart from the ChartObject collection
    ' of the active sheet.
    'Set objChart = ActiveSheet.ChartObjects(0).Chart
    'Set objChart = ThisWorkbook.Sheets(6).ChartObjects(0).Chart
     ThisWorkbook.Sheets(6).ChartObjects(0).Chart
 
    Set objSelection = Application.InputBox(Prompt:="Select entire rows or columns to chart", _
        Default:=Selection.Address, _
        Type:=8)
 
    ' Determine whether the user selected more rows or columns,
    ' and then use either the first row or first column
    ' as the range for categories.
    r = objSelection.Rows.Count
    c = objSelection.Columns.Count
    If r > c Then
        Set objCategories = Range(Cells(1, 1), Cells(r, 1))
    Else
        Set objCategories = Range(Cells(1, 1), Cells(1, c))
    End If
 
    Set objSrcData = Union(objCategories, objSelection)
    objChart.SetSourceData objSrcData
End Sub

Je pense que le problème vient de:
ThisWorkbook.Sheets(6).ChartObjects(0).Chart

est ce que vous avez quelque idée?

Je vous remercie par avance

[SfJ5Rpw8]

tu as oublié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set objChart =