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