Discussion :

[Janny]

Bonjour à tous

J'ai un graphique que je code en VBA Access.
Il contient deux courbes. Ces deux courbes sont deux choses différentes et d'échelles différentes.
Je souhaiterai sélectionner une des deux courbes et lui ajouter un axe secondaire à droite, afin d'avoir trois axes : une abscisse et deux ordonnées.
De plus j'aimerai savoir comment afficher le nom des axes sur le graphique en code VBA.

Merci, je débute en VBA et je bloque dessus depuis un moment !!

Pour plus d'info, mon graphique est un objet Microsoft Graph Chart !!!!

[alexandrebergercyr]

Je ne crois pas que c'est possible dans un objet " Microsoft Graph Chart "
Pour ce qui est des noms des axes, tu dois double-cliquer en mode création sur ton graphique. Ensuite, tu cliques sur le bouton droite da ta souris et tu vais dans option du graphique.

Désolé pour la mauvaise nouvelles des deux axes...
Le seul type que je vois qui pourrais avoir deux axes est celui de surfaces...

Bonne chance Jannie
Alexxx

[Janny]

Merci pour cette réponse, c'est vrai que je commençais à douter car je n'ai trouvé aucune info sur internet.

En revanche, étant donné qu'il est possible de mettre un second axe manuellement (clic droit sur la série en question, format de la série de données, axes, cocher axe secondaire) il doit etre possible normalement de le faire avec le code !

Je ne sais pas trop ce que je vais faire.....

Merci

[Jusomi31]

Bonjour Janny,

J'ai essayé de rajouter un axe secondaire (pour obtenir 2 axes en ordonnées).
J'arrive à les rajouter mais pas à définir une échelle correcte (ça dépend aussi de tes données). J'espère que le morceau de code pourra t'aider.

Bon courage !

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
 
Sub secondAxe()
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=Sheets("liste").Range("C6:E13"), PlotBy:= _
        xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="liste"
    ActiveChart.HasLegend = True
    ActiveChart.Legend.Select
    Selection.Position = xlRight
    ActiveChart.SeriesCollection(2).Select
    ActiveChart.SeriesCollection(2).AxisGroup = 2
    ActiveChart.Axes(xlValue, xlSecondary).Select
    With ActiveChart.Axes(xlValue, xlSecondary)
        .MinimumScaleIsAuto = True
        .MaximumScale = 22
        .MinorUnitIsAuto = True
        .MajorUnitIsAuto = True
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
End Sub

[micniv]

Bonsoir,

Pour continuer sur la bonne note de Jusomi31 ... et pour faire avancer le schmilblick , voici un bout de code qui permet de rafraichir les échelles et de mettre un titre a l'axe secondaire , reste encore à "créer cet axe" via VBA (ici, je l'ai créé manuellement)

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
Private Sub cmdAddSecondAxeY_Click()
 
    Dim AxeY2 As Object
    Dim GraphObj As Object
    'On Error GoTo Erreurs
 
    Set GraphObj = Me![xChart2]
 
    'Set AxeDesX = GraphObj.Object.Application.Chart.Axes(1)
    Set AxeY2 = GraphObj.Object.Application.Chart.Axes(2, xlSecondary)
 
    With AxeY2
        .ScaleType = xlScaleLinear     '  -4133:xlScaleLogarithmic
        .MinimumScale = 20
        .MinimumScaleIsAuto = False
        .MaximumScale = 50
        .MaximumScaleIsAuto = False
        .MinorUnit = 2
        .MinorUnitIsAuto = False
      '  .HasMinorGridlines = True      'Not applicable
        .MajorUnit = 10
       .MajorUnitIsAuto = False
     '   .HasMajorGridlines = True     'Not applicable
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
        .HasTitle = True
    .AxisTitle.Text = "July Sales"
 
    End With
 
    GraphObj.Requery
 
    Set AxeY2 = Nothing
    Set GraphObj = Nothing
 
End Sub

[Janny]

Merci pour ces réponses je vais essayer cela de suite !!!!
(Même si j'avais déjà essayé avec xlsecondary et que ça ne marchait pas (erreur) peut etre parce qu'on est pas sous Excel mais sous Access)