ajouter une série à un graph quelconque

  • Initiateur de la discussion Initiateur de la discussion Sheldor
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Sheldor

XLDnaute Occasionnel
Supporter XLD
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
 

Pièces jointes

Re : ajouter une série à un graph quelconque

Bonjour,

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

Code:
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour