ajouter une série à un graph quelconque

[Sheldor]

bonjour,

débutant...
je cherche à ajouter une série à un graphique:

je sélectionne le graphique en question,
j'actionne la macro pour ajouter les valeurs dans le tableau puis cette série dans le graph.

mon problème: une fois que je déselectionne mon graph pour mettre des valeurs dans le tableau je ne sais pas comment y revenir.

il peut s'appeler graphique 1 mais pas forcément.

grand merci de me lire

amicalement
nico

 

[Guest]

Re : ajouter une série à un graph quelconque

Bonjour,

Ci-dessous une macro qui cherche à reconnaitre le type de selection:

Sub Macro37()
    ' Variable objet pointant vers le graphique ou rien
    Dim oChart As Chart
    
    'Suivant le type d'opbjet sélectionné
    
    Select Case TypeName(Selection)
        Case "Chart": Set oChart = Selection
        Case "ChartArea", "PlotArea": Set oChart = Selection.Parent
        Case "GridLines": Set oChart = Selection.Parent.Parent
        Case Else
            MsgBox "La selection n'a pas été reconnue" & vbCrLf & "Veuillez sélectionner le graphique et non un de ses éléments", vbExclamation, "Mise à jour du graphique"
            Exit Sub
    End Select
    
    'si le graphique est bien sélectionné
    If Not oChart Is Nothing Then
        oChart.Axes(xlCategory).Select
        oChart.PlotArea.Select
        oChart.SeriesCollection.NewSeries
        oChart.SeriesCollection(2).XValues = "=Feuil1!R29C2:R31C2"
        oChart.SeriesCollection(2).Values = "=Feuil1!R29C3:R31C3"
    End If
End Sub

A+

 

[Sheldor]

Re : ajouter une série à un graph quelconque

wah....
respect

merci!!!