Discussion :

[ALEX80800]

Bonjour
J'ai récupéré un code qui ne gére qu'une série.

Comme j'ai plusieurs séries, je voudrais appliquer ce code aux différentes séries.
Mais toujours avec la même borne d'abscisse

Quelqu'un peut-il m'aider

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
 
If Not Application.Intersect(Target, Range("b12:b15,c7:e7")) Is Nothing Then
    ActiveSheet.ChartObjects(1).Activate
    With ActiveChart
        .Axes(xlValue).MinimumScale = Range("B12").Value
        .Axes(xlValue).MaximumScale = Range("B13").Value
        .Axes(xlCategory).MinimumScale = Range("B14").Value
        .Axes(xlCategory).MaximumScale = Range("b15").Value
    End With
End If
End Sub

Merci de votre aide

[Daniel.C]

Bonjour,

Ce code ne s'applique pas directement aux séries mais aux axes du graphique. Peux-tu donner quelques précisions complémentaires ? A quoi correspondent les cellules de la plage B12:B15 ? Comment sont-elles calculées ?

[Kimy_Ire]

Pour ajouter une série :

Code :

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

1
2
3
4
5
6
7
8
9
10
        'Add a SerieCollection
        .SeriesCollection.NewSeries
        With .SeriesCollection(.SeriesCollection.Count)
            .Name = "My name"
            .ChartType = xlLine
            .Values = Worksheets("Feuil1").Range("A1:A10") 'Your Y values
            .XValues = Worksheets("Feuil1").Range("B1:B10") 'Your X values
            .Border.Weight = xlThick
            .Border.Color = RGB(0, 0, 255)
        End With

Dis moi si ca te convient ou d'avantage d'explications si tu veux plus d'aide !

[ALEX80800]

Daniel,

Pour te répondre,

J'ai plusieurs séries. J'ai calculé dans d'autres cellules:
- le min et max des valeurs de ces séries (notion de coût)
- le min et max de ces séries (notion de volume)
Voici le code en fonction de mon graph

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
Sub Worksheet_Change(ByVal Target As Range)
 
 
 
If Target.Count > 1 Then Exit Sub
 
If Not Application.Intersect(Target, Range("a19:a20,d19:d20")) Is Nothing Then
 
    ActiveSheet.ChartObjects(1).Activate
    With ActiveChart
        .Axes(xlValue).MinimumScale = Range("d19").Value
        .Axes(xlValue).MaximumScale = Range("d20").Value
        .Axes(xlCategory).MinimumScale = Range("a19").Value
        .Axes(xlCategory).MaximumScale = Range("a20").Value
 
    End With
End If
End Sub

donc en conséquence d19:d20 correspondent à :

d19 : min axes ordonnées
d20 : max axe ordonnées

et a19:a20

a19 : min axes abscice
a20: max axes absice


Et j'ai une erreur 1004 "définir propriété MinimumScale de la Classe Axis"

[Daniel.C]

Pas facile à dire comme ça; quelle est la valeur de la cellule ?

[ALEX80800]

Daniel,

Merci pour cette interrogation?

Car en effet les cellules c19:c20 étaient vides

Voici le code final si ça peut servir pour d'autres.

J'ai juste modifier pour que l'ajustement des abscisses et ordonnées s'effectuent au clique sur l'onglet

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Worksheet_Activate()
 
 
    ActiveSheet.ChartObjects(1).Activate
    With ActiveChart
        .Axes(xlValue).MinimumScale = Range("d19").Value
        .Axes(xlValue).MaximumScale = Range("d20").Value
        .Axes(xlCategory).MinimumScale = Range("b19").Value
        .Axes(xlCategory).MaximumScale = Range("b20").Value
 
    End With
 
End Sub