Discussion :

[GMmaurice]

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 :

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

ActiveChart.SeriesCollection(1).Values = _lignValue

Voici le programme que nous avons écrit:

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
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

[Patnel]

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

Code :

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

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

[illight]

Code :

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

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