Discussion :

[semas]

Bonjour a tous,

Voila mon nouveau probleme:

J'ai fait un code qui me créer un graphique a partir d'un tableau avec en ligne le nom d'usines et en colonne des mois. Les champs du tableau sont des poids moyens.

Mon code me créé bien mon graphique mais pour l'axe des abscisses il me prend les usines et pour les series il me prend les mois.

Moi je voudrais l'inverse c'est a dire l'abscisse pour les mois et les usines pour les series.

Voila mon code:

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
Sub CreationGrafEvoUsine()
 
    Dim DerCol As Integer, DerLig As Long, CelAdr As String, myrange As Range, mini As Long, maxi As Long
 
    shtGrafEvoUsine.Select
 
    DerCol = shtGrafEvoUsine.Cells(2, Columns.Count).End(xlToLeft).Column
    DerLig = shtGrafEvoUsine.Range("A" & Rows.Count).End(xlUp).Row
    CelAdr = Cells(DerLig, DerCol).Address
 
    Set myrange = shtGrafEvoUsine.Range("b2:" & CelAdr)
 
    ActiveSheet.Shapes.AddChart.Select
 
    Let mini = Application.WorksheetFunction.Min(myrange)
    Let maxi = Application.WorksheetFunction.Max(myrange)
    Let mini = Application.WorksheetFunction.RoundDown(mini / 1000, 0) * 1000
    Let maxi = Application.WorksheetFunction.RoundUp(maxi / 1000, 0) * 1000
 
    With ActiveChart
        .ChartType = xlLine
        .ChartStyle = 2
        .SetSourceData Source:=Range("A1:" & CelAdr)
        .Axes(xlValue).DisplayUnit = xlThousands
        .Axes(xlValue).HasDisplayUnitLabel = False
        .Axes(xlValue).MajorUnit = 1000
        .Axes(xlValue).MinimumScale = mini
        .Axes(xlValue).MaximumScale = maxi
        .HasTitle = True
        .ChartTitle.Text = "PN moyen par usine"
    End With
 
    With shtGrafEvoUsine.Shapes(shtGrafEvoUsine.Shapes.Count)
        .Select
        .Top = shtGrafEvoUsine.Range("C15").Top
        .Left = shtGrafEvoUsine.Range("C15").Left
    End With
 
End Sub

Avez vous une idée pour faire cette inversion?

Merci

[ouskel'n'or]

Tu dois passer par les séries en les inversant.
Tu peux faire ça en enregistrant la macro ?
Si tu as un pb, tu reviens

[semas]

En enregistrant la macro ca ne marche pas ca me met juste des activate et select.