Position des graphiques

Version imprimable

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:

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

Essaie quelque chose comme ça :

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

17/04/2018, 09h08
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:

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 :aie: :mouarf:
17/04/2018, 10h18
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)
17/04/2018, 10h30
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.
17/04/2018, 10h47
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 -
17/04/2018, 11h28
Xerodas

Oui parallèle, pardon :roll:

Le problème c'est que je veux différencier les mois où le taux de service est réellement de 0. Donc si je fais ta solution, ça me mettra tous les 0 en format "-".
17/04/2018, 11h33
Bob78280

alors, ne mets rien, ni zéro, ni tiret
17/04/2018, 11h48
Xerodas

Si je mets rien, les graphiques ne fonctionnent pas d'où mon problème.
17/04/2018, 12h23
Bob78280

Je ne comprends pas car chez moi, cela fonctionne.
Peux-tu m'envoyer ton fichier?
17/04/2018, 12h33
Xerodas

Hélas non, ce sont des données sensibles..
17/04/2018, 12h35
Bob78280

1 pièce(s) jointe(s)

je n'ai pas besoin des vrais données, juste de la structure de l'onglet "Taux de service Mensuel 2"
Fais un fichier à part, mets n'importe quoi comme valeurs et aucune macro

je t'ai mis celui que j'ai créé pour tester
17/04/2018, 12h46
Xerodas

Pour les données, j'ai des formules recherche v avec si erreur, ça doit bloquer à ce niveau là, vu que sur votre fichier tout fonctionne.

Il faudrait que je vous envoie tout le classeur puisque tout est automatisé par des formules, mais cela m'est impossible.
17/04/2018, 12h48
Bob78280

faisons un essai autrement

Copiez les données en tant que valeur et retentez les graphes
si ça marche, ce sont effectivement les formules qui bloquent
17/04/2018, 12h53
Xerodas

J'ai déjà fait ce test et oui, ça fonctionne bien sans formule. Du coup je vais essayer de voir ce qui ne vas pas à ce niveau. Il faut absolument que tout soit automatisé.
17/04/2018, 13h00
Bob78280

Quand ça ne marche pas dans un sens, ....

Gardes tes formules dans l'onglet "Taux de service Mensuel 2".

Dans ton VBA, tu fais :
Insertion d'un nouvel onglet nommé "Taux 3" (admettons)
Copier coller en tant que valeurs de l'onglet "Taux de service Mensuel 2" vers "Taux 3"
Création des graphes à partir de "Taux 3"

=> en cas de modification des données
Suppression de "Taux 3"
et on recommence Insertion, Copier/Coller, Création des graphes
17/04/2018, 13h04
Xerodas

A oui très bonne idée, je débute en VBA, je vais essayer de faire ça merci ;)