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