Discussion :

[tremens]

Bonsoir,

Je veux récupérer la valeur d'une combobox et sous conditions, mettre cette série en axe Y secondaire.
Ma combobox est alimentée par l'index de ma plage de données.

Voici le code:

Code :

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

1
2
3
4
5
6
For Each MaSerie In MonGraphe.SeriesCollection
    MaSerie.FormulaR1C1Local = Replace(MaSerie.FormulaR1C1Local, "L13C", "L14C")
      If InStr(1, MaSerie.Name, Me.ComboBox5.Text, vbTextCompare) > 0 Then
    MaSerie.AxisGroup = xlSecondary
        End If
        Next MaSerie

Merci pour votre aide

Tremens

[rvtoulon]

Slt,
je me suis pas trop penché sur ton code, mais pour répondre à ta question à savoir :récuperer la valeur de la combobox je remplacerais dans ton code: "Me.combobox5.text"
par: "Me.combobox5.Value".

@+

[tremens]

Cela ne marche pas...


voici le code entier :

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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Private Sub CommandButton2_Click()
'gère le bouton tracer
Dim MonGraphe As Chart, MaSerie As Series, compteur As Long, nomfichier As String
Dim PlageX As Range, PlageY As Range, MaFeuille As Worksheet, PlageDonnees As Range
Dim ligne As Integer, ncol As Long, Axe As Axis

'récupération nom du fichier excel actif
nomfichier = ActiveWorkbook.Name

'permet de faire reference a la feuille sans avoir a tout taper
Set MaFeuille = Workbooks(nomfichier).Worksheets("Feuil1")

'detection nombre lignes & colonnes
ncol = MaFeuille.Cells(13, "F").End(xlToRight).Column
ligne = MaFeuille.Cells(Rows.Count, "F").End(xlUp).Row

Set PlageDonnees = MaFeuille.Range("F13", MaFeuille.Cells(ligne, ncol))

'Application.ScreenUpdating = False
 
For compteur = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(compteur) Then
        If MonGraphe Is Nothing Then
Set MonGraphe = MaFeuille.ChartObjects.Add(100, 100, 500, 350).Chart
MonGraphe.ChartArea.Clear
MonGraphe.ChartType = xlXYScatterSmoothNoMarkers
End If
Set PlageX = PlageDonnees.Columns(Me.ComboBox3.ListIndex + 1)
Set PlageY = PlageDonnees.Columns(compteur + 1)
Set MaSerie = MonGraphe.SeriesCollection.NewSeries
    With MaSerie
    .Values = PlageY
    .XValues = PlageX
    .FormulaR1C1Local = Replace(MaSerie.FormulaR1C1Local, "L13C", "L14C")
    End With
    With MonGraphe
    .SeriesCollection(compteur).Name = PlageDonnees.Cells(compteur + 1).Value
End With
End If

Next compteur

'ajoute une serie en axe secondaire Y
    For Each MaSerie In MonGraphe.SeriesCollection
    MaSerie.FormulaR1C1Local = Replace(MaSerie.FormulaR1C1Local, "L13C", "L14C")
      If InStr(1, MaSerie.Name, Me.ComboBox5.Text, vbTextCompare) > 0 Then
    MaSerie.AxisGroup = xlSecondary
        End If
        Next MaSerie

If Not MonGraphe Is Nothing Then
If Len(Me.ComboBox1.Text) > 0 Then
MonGraphe.HasTitle = True
MonGraphe.ChartTitle.Characters.Text = Workbooks(nomfichier).Worksheets("Feuil2").Range("g6")
End If
MonGraphe.HasLegend = Me.CheckBox3.Value
If MonGraphe.HasLegend And Me.OptionButton1 Then
MonGraphe.Legend.Position = xlLegendPositionLeft
End If
End If



    With MonGraphe
    .ChartType = xlXYScatterSmoothNoMarkers
    'action sur l'axe des X
    Set Axe = .Axes(xlCategory, xlPrimary)
    With Axe
        .HasTitle = True
        .AxisTitle.Text = ComboBox3
                End With
    'action sur l'axe des ordonnées à gauche
    Set Axe = .Axes(xlValue, xlPrimary)
    With Axe
        .HasTitle = True
        .AxisTitle.Text = ComboBox6
        End With
        
        If ComboBox5.Value <> 0 Then
    'action sur l'axe des ordonnées de droite
     Set Axe = .Axes(xlValue, xlSecondary)
    With Axe
       .HasTitle = True
        .AxisTitle.Text = ComboBox7
        End With
     End If
   
   End With
    

End Sub

le code bloque là où c'est en gras, mais quand je sélectionne une des courbe dans le combobox5 pour être en ysecondaire, au blocage, la courbe sélectionnée n'est pas en ysecondaire...

En plus, si je sélectionne mes plages dans le listebox1 de façon discontinue (cad par exemple la 1ère et la 4ème), je n'ai pas la légende qui va avec les courbes sélectionnées.

c'est peut-être pas très clair...

tremens