Discussion :

[mynameisjeff]

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 G2443.
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

[Menhir]

Je joins le fichier.

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

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.

[Invité]

Bonsoir,
https://www.developpez.net/forums/d1...f/#post8364420

[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.

[mynameisjeff]

Bonjour le forum,

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

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
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