Créer graphiques par vba dans la feuille active

Version imprimable

28/02/2018, 14h40
mynameisjeff

1 pièce(s) jointe(s)

Créer graphiques par vba dans la feuille active

Bonjour le forum,

Je cherche à créer toutes les x+22 lignes un graphique. Je cherche une formule qui pourrait :
supprimer tous les anciens graphiques de la page dans un premier temps puis recréer tous les nouveaux.

Je joins le fichier. J'ai mis un graphique qui correspond à ce que je recherche en G24:P43.
1er graphique : ma plage = A2:F22
critères horizontaux : A3:A22
critères verticaux : B2:F2
La note des critère verticaux est notée sur 5 (qui sera le maximum de l'échelle)
Je cherche à afficher comme titre du graphique la cellule qui sera toujours une ligne au-dessus du graphique, pour le 1er graphique :
le titre = A1
Je souhaite placer chaque graphique à côté de chaque tableau de données mais à partir de la colonne G.
Et je cherche à ce que chaque tableau ait la taille 20cm de long et 15cm de haut.

2eme graphique : ma plage : A24:F44

et ainsi de suite jusqu'à mon 20eme graphique.

Merci d'avance à toute personne qui pourrait m'aider.

Cordialement
28/02/2018, 15h45
Menhir

Citation:

Envoyé par mynameisjeff

Je joins le fichier.

https://www.developpez.net/forums/d8...s-discussions/

Citation:

supprimer tous les anciens graphiques de la page dans un premier temps

Faire une boucle For Each sur la collection Shapes de la Worksheet concernée.
Tu fais un test pour sélectionner celles dont la propriété Type est égale à msoChart que tu détruis avec la méthode Delete.

Mais il serait préférable que tu en conserves pour servir de modèle : il est plus simple de copier un graphique et de modifier la série concernée que de recréer un graphique à partir de rien.
28/02/2018, 17h21
Invité

Bonsoir,
https://www.developpez.net/forums/d1...f/#post8364420
28/02/2018, 20h41
Pierre Fauconnier

Je plussoie mille fois Menhir, pour la suppression des graphiques existants (dans une procédure spécifique) et surtout pour la création des graphiques sur base d'un modèle, dont il suffirait en gros de modifier la source (procédure spécifique) avant de la repositionner (procédure spécifique).

Bien plus simple que de créer un graphique de toutes pièces par code.

réponse trouvée

Bonjour le forum,

Merci à tous pour vos éléments de réponse.
J'ai réussi à trouver la solution que je recherchais :

Code:

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
Sub SYNTHESE_FOURNISSEURS_GRAPHIQUES()
Sheets("SYNTHESE_FOURNISSEURS").Select
'supprimer tous les graphiques
Dim Grf As ChartObject
Dim Sh As Worksheet
 
Set Sh = Sheets("SYNTHESE_FOURNISSEURS")
For Each Grf In Sh.ChartObjects
    Grf.Delete
Next Grf
 
 
'créer tous les graphiques
Dim a, i, j, x, k
 
x = 0
For i = 2 To 1740 Step 22
x = x + 1
a = i - 1
k = i + 1
j = i + 20
    ActiveWindow.ScrollRow = a
    ActiveWindow.ScrollColumn = 1
 
    Range("A" & i & ":F" & j).Select
    ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
        ActiveChart.SetSourceData Source:=Range(Cells(i, 1), Cells(j, 6))
    ActiveChart.SetElement (msoElementChartTitleNone)
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
 
    With ActiveChart
    .Parent.Name = "graphique " & x
    End With
 
    'Range("A" & i).Select
    'Selection.Copy
    ActiveSheet.ChartObjects("graphique " & x).Activate
    ActiveChart.ChartTitle.Characters.Text = Cells(i, 1).Value & " " & Cells(a, 1).Value
    'ActiveChart.Paste
    '    Application.CutCopyMode = False
    'ActiveChart.ChartTitle.Text = "objectif recherché "
    'Range("J29").Select
    'ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveSheet.ChartObjects("graphique " & x).Activate
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).MaximumScale = 5
    ActiveChart.Axes(xlValue).MajorUnit = 1
    'Range("O33").Select
    ActiveSheet.ChartObjects("graphique " & x).Activate
    'ActiveSheet.Shapes("graphique " & x).Height = 141.7322834646
    ActiveSheet.Shapes("graphique " & x).Height = 226.7716535433
    ActiveSheet.Shapes("graphique " & x).Width = 566.9291338583
    'Range("M28").Select
    'ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveSheet.ChartObjects("graphique " & x).Activate
    'ActiveSheet.Shapes("graphique " & x).IncrementLeft 63.75
    'ActiveSheet.Shapes("graphique " & x).IncrementTop -129.75
    ActiveSheet.ChartObjects("graphique " & x).Left = Range("G" & k).Left
    ActiveSheet.ChartObjects("graphique " & x).Top = Range("G" & k).Top
    'Range("K36").Select
 
Next i
Range("A1").Select
End Sub

Merci à tous encore une fois pour votre aide.

Cordialement