Graphique par macro

Version imprimable

Graphique par macro

Bonjour,
Nous avons un tableau de données sur chaque feuille d'excel qui correspond aux différents mois de l'année. Nous voulons faire un graphique suivant les mois. Nous aimerions que notre macro fasse le graphique suivant le mois donné par l'utilisateur.
On a fait un programme mais celui ne fonctionne pa, il plante à la fin, au niveau de

Code:

ActiveChart.SeriesCollection(1).Values = _lignValue

Voici le programme que nous avons écrit:

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
34
35
36
37
38
39
Sub graphR_journalier(Mois)
 
Dim lignValue As String
Dim lignX As String
Dim i As Integer
 
 
'Sélection de la feuille excel suivant le mois'
    Sheets(Mois).Select
 
    'On cherche les lignes à sélectionner pour le graphique car dans excel nos tableaux comportene des lignes vides'
        'Initialisation (tjr le même début)'
         lignValue = "=" & Mois & "!$G$3"
         lignX = "=" & Mois & "!$B$3"
         i = 3
         While cells(i, 1) <> ""
            If cells(i, 2) <> " " Then
                i = i + 1
            Else
                lignValue = lignValue & ":$G$" & i - 1 & ";" & Mois & "!$G$" & i + 2
                lignX = lignX & ":$B$" & i - 1 & ";" & Mois & "!$B$" & i + 2
                i = i + 1
            End If
        Wend
        lignValue = lignValue & ":$G$" & i - 1
        lignX = lignX & ":$B$" & i - 1
 
 
   Sheets("GraphR_j").Select
    'On active le graphique à changer'
    ActiveSheet.ChartObjects("Graphique 1").Activate
 
    'On change les données des recettes'
    ActiveChart.SeriesCollection(1).Values = _lignValue
 
    'On change l'axe des absisses'
    ActiveChart.SeriesCollection(1).XValues = _lignX
 
End Sub

merci

normalement pour déterminer la zone de donnée d'un graphe il faut la définir dans un objet range
exemple :
Code:

1 2 3 4 5 6 7 8 9 sub graph() dim zone as range dim graph as chart set zone = worksheets(1).range(cells(premiere ligne, premierecolonne), cells(derniereligne, dernierecolonne)) set graph = thisworkbook.charts.add end sub
pour coder les caractéristiques de ton graphe il faudrait enregistrer la macro pendant que tu définit ton graphique et reporter ensuite le code dans ta prore macro.

c'est le plus simple

04/04/2008, 15h21
illight

Code:

ActiveChart.SeriesCollection(1).Values = _lignValue

C'est fait exprès le '_' devant ton nom de variable ? qu'est-ce qu'il vient faire la ? pourquoi tu met pas lignValue plutot ? c'est ta variable non ? :)

Et pour LignX je dirai pareil :)