VBA Excel graphique

sarah3854 -  
Bonjour,

j'ai une petite question simple mais à laquelle je n'arrive pas à répondre:
je voudrais faire un mixe des 2 codes suivants me permettant de dire que l'abscisse de mon graphe est situé dans la feuille Pentes jusqu'à la ligne i - 1

ActiveChart.SeriesCollection(1).XValues = "=Pentes!R10C8:R33C8"
ActiveChart.SeriesCollection(1).XValues = Range("P10:P" & i - 1 & "")

J'ai essayé

ActiveChart.SeriesCollection(1).XValues = "=Pentes!R10C8:R" & i - 1 & "C8"

mais ca ne marche pas

merci d'avance

4 réponses

  2.  cousinhub29
    Re-,

    Essaie avec ce code (sans utilisation du i) 

    ActiveChart.SeriesCollection(1).XValues = Sheets("Pentes").Range("H10:H" & Sheets("Pentes").[H65000].End(xlUp).Row)


    Peut-être?
    1. sarah3854
      voilà le code:

      Range("H10").Select
      i = 10

      While Not Range("H" & i & "").Value = 0
      i = i + 1
      Wend

      Sheets("InstManhours").Select
      ActiveSheet.ChartObjects("Chart 1").Activate

      ActiveChart.SeriesCollection(1).XValues = "=Pentes!R10C8:R" & i - 1 & "C8"

      i est bien défini et correctement calculé
      1. cousinhub29
        Bonjour,

        Tu as bien déterminé la valeur de i ?

        Montre le code, pour voir