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 =

[alonet]

tu as oublié :

Code :

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

Set objChart =

Oui, j'ai bien vérifié:
Set objChart = ThisWorkbook.Sheets(6).ChartObjects(0).Chart
Mais ça marche pas.

Mais quand tu me demande si ma feuil comporte bien un graphique, tu veux dire quoi?

Merci

[SfJ5Rpw8]

Mais ça marche pas.

Cela je n'en doute pas ton classeur n'as pas de jambes (je suis allergique à la phrase "ça ne marche pas"...)

Mais quand tu me demande si ma feuil comporte bien un graphique, tu veux dire quoi?

eh bien ton code essai d'accéder au graphique contenu dans ta feuille de rang 6 ... je te demande juste si tu as bien un graphique dans cette feuille ...

[alonet]

Cela je n'en doute pas ton classeur n'as pas de jambes (je suis allergique à la phrase "ça ne marche pas"...)





eh bien ton code essai d'accéder au graphique contenu dans ta feuille de rang 6 ... je te demande juste si tu as bien un graphique dans cette feuille ...

Ahh ok. c'est à cause de ça alors.... Je n'ai pas de graphique dans la feuil 6. C'est bien ta réponse. Mais, comment je pourrais créer un graphique lors on fait click sur le bouton.
Je voudrais garder le même code, sauf que j'aimerai créer le graphique dans la feuil active.

Merci

[zoom61]

La feuille active c'est activeSheet.

@+.

[alonet]

La feuille active c'est activeSheet.

@+.

Ok merci pour votre aide