Discussion :

[Teckyl]

Bonjour,

Je suis à la recherche d'une méthode afin de créer et déplacer plusieurs graphiques sur une même feuille.

Après des essais peu concluant, j'arrive bien à créer plusieurs graphiques, mais je les déplace tous en même temps. Hors j'en veux un par exemple partant du coin haut droite de la cellule A5 puis un autre à partir de la cellule F5.

Voici mon code pour illustrer un peu les faits :

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
 
        Dim sh As Worksheet
        Dim chrt As Chart
        Dim chrto As ChartObject
        Dim sc1 As SeriesCollection
        Dim ser As Series
 
        dern_ligne_a = Sheets("Module 1 trie").Range("G1048576").End(xlUp).Row
        dern_ligne_b = Sheets("Module 1 trie").Range("H1048576").End(xlUp).Row
 
        Set sh = ActiveSheet
        With sh
             Set chrt = Nothing
             Set chrt = .Shapes.AddChart.Chart
             With chrt
                 Set sc1 = .SeriesCollection
                 Set ser = sc1.NewSeries
 
                 With ser
 
                        .XValues = Range("G2:G" & dern_ligne_a)                                                 'Récupération des titres des courbes
                        .Values = Range("H2:H" & dern_ligne_b)
                        .ChartType = xlPie                                             'Choix du type de graphique
                        .ApplyDataLabels                                                            'Afficher les valeurs sur les courbes
                        .Name = "Blablabla"
                 End With
                 .HasLegend = True                                                                 'Afficher la légend
            End With
            With .ChartObjects
            .Left = Range("D33").Left
            .Top = Range("D33").Top
            .Width = 450                                                                            'Taille du graphique
            .Height = 300
            End With
            Set chrt = Nothing
        End With

Avec ce code je créé un seul graphique et je le place à partir de la cellule D33.

Auriez-vous une piste de recherche pour pouvoir créer un graphique pour la colonne A et B, un autre C et D, etc... et les placer à partir de A5, C5, etc... (par exemple) ?

Je vous remercie d'avance.
Cordialement.

[Teckyl]

Problème résolu

Pour ceux qui passent après moi :


La ligne : Set chrt = .Shapes.AddChart.Chart permet d'entrer des paramètres comme suit :

Code :

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

             Set chrt = .Shapes.AddChart(type de colonne, position.Left, position.Top, width, height).Chart

Voilà voilà