Explication ligne de code

Version imprimable

18/07/2014, 11h09
alonet

Explication ligne de code

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:

Set objChart = ActiveSheet.ChartObjects(1).Chart

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

Merci
18/07/2014, 11h14
zoom61

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

@+.
18/07/2014, 11h52
alonet

Citation:

Envoyé par zoom61

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
18/07/2014, 12h30
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:

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.

Citation:

Envoyé par bbil

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:

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:

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

18/07/2014, 12h40
SfJ5Rpw8

:koi:

tu as oublié :

Code:

Set objChart =
18/07/2014, 12h43
alonet

Citation:

Envoyé par bbil

:koi:

tu as oublié :

Code:

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
18/07/2014, 12h48
SfJ5Rpw8

Citation:

Envoyé par alonet

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"...:()

Citation:

Envoyé par alonet

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 ...
18/07/2014, 13h09
alonet

Citation:

Envoyé par bbil

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
18/07/2014, 13h13
zoom61

La feuille active c'est activeSheet.

@+.
18/07/2014, 15h02
alonet

Citation:

Envoyé par zoom61

La feuille active c'est activeSheet.

@+.

Ok merci pour votre aide