Salut, je voudrais faire une macro executant un graphique a partir d une ligne selectionnee.
Par exemple, je selectionne la ligne 18, je veut qu elle fasse un graphique avec comme x : de N18 a S18 et comme
y : de C18 a H18.
 
 J ai ecris :
Dim r As Integer
Dim nouvelleSerie As Integer
 
Let r = ActiveCell.Row
 
    Sheets("pH-Diagramm" ).Select
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection.NewSeries
   Let nouvelleSerie = ActiveChart.SeriesCollection.Count() + 1
 
   With ActiveChart.SeriesCollection(nouvelleSerie)      ->erreur
        .XValues = "=Sheet1!R" & r & "C14:R" & r & "C19"
        .Values = "=Sheet1!R" & r & "C7:R" & r & "C12"
        .Name = "=Sheet1!R" & r & "C1"
   End With
   
   
End Sub
 
 
Seulement, j ai un message erreur 1004, la methode seriecollection de chart a echoue sur la ligne erreur
Merci de m aider
 

En fait, j ai trouve.Il fallait pas mettre le +1 pour nouvelleserie, parce que j en creait deja une avec newseries, donc je voulais changer des donnees d une serie qui n existait pas.
 
J ai un autre probleme :
Je voudrais maintenant changer des proprietees du dernier elements de la legende creer.
 
Est ce qu une commande comme Activechart.legend.count() existe ?