Discussion :

[Xerodas]

Bonjour à tous,

J'ai fait une macro pour automatiser la création de graphiques, mais je n'arrive pas à faire en sorte que les graphiques se positionnent à coté de mon tableau, les uns à la suite des autres.

Voici le code d'origine, merci par avance.

---

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
Dim ligne As Integer
 
ligne = 5
 
While Sheets("Taux de service Mensuel 2").Range("B" & ligne).Value <> ""
    Union(Range("C4:N4"), Range(Cells(ligne, 3), Cells(ligne, 14))).Select
    Sheets(5).Shapes.AddChart.Select
    activeChart.ChartType = xlColumnClustered
    activeChart.SeriesCollection(1).Select
    activeChart.SeriesCollection(1).ChartType = xlLine
    activeChart.SeriesCollection(1).Name = "='Taux de service Mensuel 2'!$B$4"
    activeChart.SeriesCollection(2).Name = "=""Taux de service"""
    activeChart.SeriesCollection(2).XValues = _
        "='Taux de service Mensuel 2'!$C$3:$N$3"
    activeChart.SetElement (msoElementChartTitleAboveChart)
    activeChart.ChartTitle.Text = Cells(ligne, 2)
    Selection.Format.TextFrame2.TextRange.Characters.Text = Cells(ligne, 2)
    With Selection.Format.TextFrame2.TextRange.Characters(1, 1).ParagraphFormat
        .TextDirection = msoTextDirectionLeftToRight
        .Alignment = msoAlignCenter
    End With
    With Selection.Format.TextFrame2.TextRange.Characters(1, 1).Font
        .BaselineOffset = 0
        .Bold = msoTrue
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(0, 0, 0)
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 18
        .Italic = msoFalse
        .Kerning = 12
        .Name = "+mn-lt"
        .UnderlineStyle = msoNoUnderline
        .Strike = msoNoStrike
    End With
 
    ligne = ligne + 1
    DoEvents
 
Wend
End Sub

[Bob78280]

Essaie quelque chose comme ça :

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
 
Sub test()
Dim ligne As Integer
 
ligne = 0
 
While Sheets("Taux de service Mensuel 2").Range("B" & 5 + ligne).Value <> ""
    Range("C4:N" & 5 + ligne).Select
    Sheets(1).Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    While ActiveChart.SeriesCollection.Count > 2
        ActiveChart.SeriesCollection(2).Delete
    Wend
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).ChartType = xlLine
    ActiveChart.SeriesCollection(1).Name = "='Taux de service Mensuel 2'!$B$4"
    ActiveChart.SeriesCollection(2).Name = "=""Taux de service"""
    ActiveChart.SeriesCollection(2).XValues = _
    "='Taux de service Mensuel 2'!$C$3:$N$3"
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    ActiveChart.ChartTitle.Text = Cells(5 + ligne, 2)
    Selection.Format.TextFrame2.TextRange.Characters.Text = Cells(5 + ligne, 2)
    With Selection.Format.TextFrame2.TextRange.Characters(1, 1).ParagraphFormat
    .TextDirection = msoTextDirectionLeftToRight
    .Alignment = msoAlignCenter
    End With
    With Selection.Format.TextFrame2.TextRange.Characters(1, 1).Font
    .BaselineOffset = 0
    .Bold = msoTrue
    .NameComplexScript = "+mn-cs"
    .NameFarEast = "+mn-ea"
    .Fill.Visible = msoTrue
    .Fill.ForeColor.RGB = RGB(0, 0, 0)
    .Fill.Transparency = 0
    .Fill.Solid
    .Size = 18
    .Italic = msoFalse
    .Kerning = 12
    .Name = "+mn-lt"
    .UnderlineStyle = msoNoUnderline
    .Strike = msoNoStrike
    End With
 
 
    strName = Replace(ActiveChart.Name, ActiveSheet.Name & " ", "") 'le nom du graphe dans la macro reprend le nom de l'onglet
    With ActiveSheet.Shapes(strName)
        .Left = 3
        .Top = 2 + 225 * ligne
    End With
 
    ligne = ligne + 1
    DoEvents
 
Wend
 
End Sub

[Xerodas]

Merci beaucoup Bob, du coup pour que je comprenne comment le placer à ma guise, c'est cette partie qui gère le positionnement ?

Code :

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

1
2
3
4
   With ActiveSheet.Shapes(strName)
        .Left = 3
        .Top = 2 + 225 * ligne
    End Wit

By the way le code fonctionne, mais à partir de la ligne 16, les graphiques sont faux, ma ligne objectif n'est plus une droite perpendiculaire à l’abscisse et les mois sont décalés. Je commence à perdre patience avec cette macro

[Bob78280]

oui, c'est cela.


pour le problème de données, peux-tu me donner un exemple de données?
Ce serait plus facile
(Pas besoin d'en avoir beaucoup et les réelles)

[Xerodas]

Alors en gros, on a normalement, perpendiculaire à l'axe des abscisses une droite qui représente le taux de service cible, fixé à 90% et a côté de ça, le taux de service mensuel sous forme de bâtons.

Pour la ligne 16 où tout s'emballe on a de Janvier à Avril 0%, 100% de mai à Juillet, 75% en Août, 100% en septembre et novembre et 0% en octobre et décembre. A la base je voulais mettre des "-" à la place des 0% vu que c'est des mois sans commande donc pas de taux de service, mais impossible pour faire les graphiques.

[Bob78280]

Perpendiculairement à l'axe des ordonnées, plutôt (ou parallèlement à l'axe des abscisse)?
=> une droite horizontale, quoi


Tu mets 0 pour les mois sans commande
mais formate les cellules :
Format personnalisée : 0;"";"-"

Au lieu de voir des 0 dans ton tableau, tu verras des -