Discussion :

[Ardent]

Bonjours,

Je viens vers vous pour un problème que je ne comprend pas.

J'ai fait un programme qui en fonction de paramètres que l'on rentre le programme fait des calculs puis trace des graphiques bilan.

Mon programme se compose en 2 parties : une qui fait les calculs pour mettre à jour des colonnes de valeurs et l'autre qui trace les graphes.

Seulement voila quand je trace un graphe alors que je viens de changer des valeur initial le graphe affiche une nouvelle série inconnu et change les abscisse. Il me suffit de supprimer le programme et de le réécrire identiquement (avec un copié collé) et cela remarche jusqu’à ma prochaine modification.


Merci d'avance pour toute réponse.

Ps: Comment faire pour mettre mon fichier en ligne, le format excel avec macro n'est pas accepté en pièce jointe ?


En attendant de pouvoir mettre mon programme en ligne voici le code de la fonction de traçage :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub graphe()
 
Dim c As Integer
c = 0
 
 
 If Sheets("Feuil1").CheckBox1.Value = True Then
 ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=Feuil2!$G$1"
    ActiveChart.SeriesCollection(1).Values = "=Feuil2!$G$2:$G$22"
c = c + 1
 End If
If Sheets("Feuil1").CheckBox2.Value = True Then
ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=Feuil2!$H$1"
    ActiveChart.SeriesCollection(1).Values = "=Feuil2!$H$2:$H$22"
c = c + 1
End If
If Sheets("Feuil1").CheckBox3.Value = True Then
ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).Name = "=Feuil2!$E$1"
    ActiveChart.SeriesCollection(1).Values = "=Feuil2!$E$2:$E$22"
c = c + 1
End If
 
If c = 1 Then
ActiveSheet.ChartObjects(1).Left = Range("J23").Left
ActiveSheet.ChartObjects(1).Top = Range("J23").Top
 
End If
 
If c = 2 Then
ActiveSheet.ChartObjects(1).Left = Range("G22").Left
ActiveSheet.ChartObjects(1).Top = Range("G22").Top
ActiveSheet.ChartObjects(2).Left = Range("N22").Left
ActiveSheet.ChartObjects(2).Top = Range("N22").Top
 
End If
If c = 3 Then
ActiveSheet.ChartObjects(1).Left = Range("F27").Left
ActiveSheet.ChartObjects(1).Top = Range("F27").Top
ActiveSheet.ChartObjects(2).Left = Range("L27").Left
ActiveSheet.ChartObjects(2).Top = Range("L27").Top
ActiveSheet.ChartObjects(3).Left = Range("I14").Left
ActiveSheet.ChartObjects(3).Top = Range("I14").Top
 
End If
End Sub

[mercatog]

Bonsoir

Ci-joint code séparé en plusieurs sous routines
Les graphiques sont tracés dans Feuil2 (feuille des données)

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
 
Sub Graphe()
Dim c As Byte
 
EffaceGraphe "Feuil2"
 
If Worksheets("Feuil1").CheckBox1.Value = True Then
    TraceGraphe "Feuil2", 7
    c = c + 1
End If
 
If Worksheets("Feuil1").CheckBox2.Value = True Then
    TraceGraphe "Feuil2", 8
    c = c + 1
End If
 
If Worksheets("Feuil1").CheckBox3.Value = True Then
    TraceGraphe "Feuil2", 5
    c = c + 1
End If
 
If c > 0 Then PlaceGraphe "Feuil2", c
End Sub
 
'Efface les graphiques existants
Private Sub EffaceGraphe(ByVal Sht As String)
Dim ChObj As ChartObject
 
For Each ChObj In Worksheets(Sht).ChartObjects
    ChObj.Delete
Next ChObj
End Sub
 
'Trace les graphiques
Private Sub TraceGraphe(ByVal Sht As String, ByVal Col As Integer)
 
With Worksheets(Sht).ChartObjects.Add(0, 0, 300, 180).Chart
    .ChartType = xlLine
    With .SeriesCollection.NewSeries
        .Name = "='" & Sht & "'!" & Worksheets(Sht).Cells(1, Col).Address
        .Values = "='" & Sht & "'!" & Worksheets(Sht).Cells(2, Col).Resize(21, 1).Address
    End With
End With
End Sub
 
'Place les graphiques
Private Sub PlaceGraphe(ByVal Sht As String, ByVal Ind As Byte)
Dim i As Byte, j As Byte, k As Byte
 
With Worksheets(Sht)
    For k = 1 To Ind
        Select Case Ind
            Case 1
                .ChartObjects(k).Left = .Cells(1, 10).Left
                .ChartObjects(k).Top = .Range("A23").Top
            Case 2
                .ChartObjects(k).Left = .Cells(1, 7 * k).Left
                .ChartObjects(k).Top = .Range("A22").Top
            Case 3
                i = IIf(k = 3, 14, 27)
                j = IIf(k = 3, 9, 6 * k)
                .ChartObjects(k).Left = .Cells(1, j).Left
                .ChartObjects(k).Top = .Cells(i, 1).Top
        End Select
    Next k
End With
End Sub

[Ardent]

Merci de la rapidité de cette réponse mais j'ai quelque question car en effet je débute dans ce langage et je m'attaque pas au plus facile (c'est pour un projet d'étude)

Serait-il possible d'avoir des explication sur la fonction qui trace les graphes ? Notamment comment le graphe reconnais les bonnes valeurs car je ne vois plus les coordonnées de mes tableaux.

Ensuite sur la fonction qui place les graphes la variable Ind correspond on nombre de graphe et donc a ma variable c dans le programme initial. Par quelle fonction les variables échangent leur valeur ?
Je pense que de c après la virgule dans :
If c > 0 Then PlaceGraphe "Feuil2", c
renvois la valeur pour la fonction appelé mais celle-ci déclare 2 variables Sht et Ind, comment le reconnais la bonne ?
Private Sub PlaceGraphe(ByVal Sht As String, ByVal Ind As Byte)

[mercatog]

Je te dois des explications

Pour tracer un graphique, j'ai proposé une procédure paramétrée nommée TraceGraphe avec 2 paramètres:
Sht: Le nom de la feuille contenant les données et où sera tracé la graphe
Col: la colonne des données

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Trace les graphiques
Private Sub TraceGraphe(ByVal Sht As String, ByVal Col As Integer)
 
With Worksheets(Sht).ChartObjects.Add(0, 0, 300, 180).Chart
    .ChartType = xlLine
    With .SeriesCollection.NewSeries
        .Name = "='" & Sht & "'!" & Worksheets(Sht).Cells(1, Col).Address
        .Values = "='" & Sht & "'!" & Worksheets(Sht).Cells(2, Col).Resize(21, 1).Address
    End With
End With
End Sub

Avec la ligne 4, j'ajoute un graphique sur la feuille Sht avec une largeur de 300 et une hauteur de 180 points (dans l'angle haut gauche de la feuille

Les lignes 6 à 9, j'ajoute une série avec comme nom le contenu de la cellule Cells(1, Col) de la feuille Sht et avec comme valeurs la plage allant de Cells(2, Col) avec une hauteur de 21 cellules.

L'appel de cette procédure se fait à l'aide de (par exemple)

Code :

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

TraceGraphe "Feuil2", 7

Cette appel remplace dans le code précédent la paramètre Sht par la valeur "Feuil2" et le paramètre Col par la valeur 7

on aura

Code :

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

1
2
3
4
5
6
7
8
9
10
11
With Worksheets("Feuil2").ChartObjects.Add(0, 0, 300, 180).Chart
    .ChartType = xlLine
    With .SeriesCollection.NewSeries
        .Name = "=Feuil2!" & Worksheets("Feuil2").Cells(1, 7).Address
        'càd
        '.Name = "=Feuil2!$G$1"
        .Values = "=Feuil2!" & Worksheets("Feuil2").Cells(2, 7).Resize(21, 1).Address
        'càd
        '.Values = "=Feuil2!$G$2:$G$22"
    End With
End With

[Ardent]

Merci de l'explication cela me permet d'utiliser cette fonction pour d'autre application sans la copier bêtement.

Re,

Je voudrait modifier les ordonnée de mon graphique quelle est l'instruction supplémentaire ?

Merci d'avance