Discussion :

[mxitzny]

Bonjour
j'ai fait une macro qui permet d'afficher un graphique mais j'aimerai bien lui affecter une position bien précise sur ma feuille excel, voici mon code:
Merci pour votre aide

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
Sub KPI1()
'macro pour l histogramme
Dim sh As Worksheet
Dim chrt As Chart
Dim chrto As ChartObject
Dim sc As SeriesCollection
Dim ser As Series
 
 
        Set sh = Sheets("Indicateur")
        With sh
 
 
 
             For Each chrto In .ChartObjects
 
                  chrto.Delete               'Supprimer l'ancien histogramme
             Next chrto
 
             Set chrt = .Shapes.AddChart.Chart
             With chrt
                 Set sc = .SeriesCollection       'Définir les series avec les quelles on va travailler
                 Set ser = sc.NewSeries
 
                 With ser
                      .Name = Range("A1").Offset(7, 0).Value
                      .XValues = Range(sh.Range("A1").Offset(0, 1), sh.Range("A1").End(xlToRight))
                      .Values = Range(sh.Range("A8").Offset(0, 1), sh.Range("A8").End(xlToRight))
                      .ChartType = xlColumnClustered             'Type du graphique qui est histogramme
                 End With
            End With
 
            Set chrt = Nothing
        End With
        Set sh = Nothing
End Sub

[Invité]

Bonjour,

A tester.

Si votre onglet ne contient qu'un seul histogramme, vous pourriez modifier les propriétés Top et Left de votre objet Chrto après la construction du graphe avec le même genre de boucle qui vous sert à détruire.

[mxitzny]

Bonjour
Je compte mettre de graphique dans le même onglet, voici la macro du deuxième graphe

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
Sub KPI2()
'macro pour le graph ligne
Dim sh As Worksheet
Dim chrt As Chart
Dim chrto As ChartObject
Dim ser As Series
Dim ser1 As Series
Dim ser2 As Series
 
        Set sh = Sheets("Indicateur")
        With sh
 
             For Each chrto In .ChartObjects
                  chrto.Delete               'Supprimer l'ancien histogramme
             Next chrto
 
             Set chrt = .Shapes.AddChart.Chart
             With chrt
                 Set sc = .SeriesCollection       'Définir les series avec les quelles on va travailler
                 Set ser = sc.NewSeries
                 Set sc = .SeriesCollection
                 Set ser1 = sc.NewSeries
                 Set sc = .SeriesCollection
                 Set ser2 = sc.NewSeries
                 With ser
                      .Name = Range("A1").Offset(2, 0).Value
                      .XValues = Range(sh.Range("A1").Offset(0, 1), sh.Range("A1").End(xlToRight))
                      .Values = Range(sh.Range("A3").Offset(0, 1), sh.Range("A3").End(xlToRight))
                      .ChartType = xlLine             'Type du graphique qui est histogramme
                 End With
                 With ser1
                      .Name = Range("A1").Offset(4, 0).Value
                      .XValues = Range(sh.Range("A1").Offset(0, 1), sh.Range("A1").End(xlToRight))
                      .Values = Range(sh.Range("A5").Offset(0, 1), sh.Range("A5").End(xlToRight))
                      .ChartType = xlLine             'Type du graphique qui est histogramme
                 End With
                 With ser2
                      .Name = Range("A1").Offset(6, 0).Value
                      .XValues = Range(sh.Range("A1").Offset(0, 1), sh.Range("A1").End(xlToRight))
                      .Values = Range(sh.Range("A7").Offset(0, 1), sh.Range("A7").End(xlToRight))
                      .ChartType = xlLine             'Type du graphique qui est histogramme
                 End With
            End With
 
            Set chrt = Nothing
        End With
        Set sh = Nothing
 
End Sub

Merci pour votre aide

[Invité]

La destruction de vos objets ChartObjet est incohérente dans ce cas.

[mxitzny]

Est ce que vous avez une solution à me proposer s'il vous plait, une solution qui me permettra d'afficher les deux indicateurs et les positionner correctement sur la feuille excel ?
Merci pour votre aide.

[Invité]

Il vous suffit de créer une variable ChartObjet dans votre code et de la rattacher au graphique avec

Code :

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

 Set MonChartObject = chrt.parent

Vous pourrez ensuite lui attribuer la position souhaitée.