MAJ graphique excel 97

Utilisateur anonyme -  
Salut,
je dois tracer un graphique qui représente la valeur des stocks en fonction des semaines.
mon probleme c'est que je souhaite pouvoir ajouter une semaine à mes données et que mon graphique se mette à jour automatiquement.
j'ai donc créé une macro qui ajoute cette semaine au tableau de données (en allant les chercher sur une autre feuille)
et qui augmente d'une ligne le tableau de données du graphique.
Le problème c'est que quand j'execute ma macro, la colonne des semaines, qui est en abscisse au départ, passe dans les données avec les valeurs du stock.
comment est-ce que je peux corriger ça?
Configuration: Windows NT 4.0
Internet Explorer 6.0

5 réponses

  1. Utilisateur anonyme
    je suis pas sur que mon dernier message ai été très clair,
    en fait avec ma macro, le graphique étend la zone où il prend ses données de une ligne (11 au lieu de 10) mais quand je la réexecute, le nombre de lignes ne passe pas à 12 et reste à 11.
    1
    1. Utilisateur anonyme
      j'ai essayé mais le probleme c'est que quand je redefinit ça, je n'arrive à le faire que de manière fixe mais je voudrais que ca ajoute une ligne à chaque execution.
      1
      1. el matador
        je pense qu'il faut que tu ai redefinir la selection de ton graphique dans ta macro.
        0
        1. Utilisateur anonyme
          voila, je l'ai associée à un bouton sur la feuille

          Private Sub CommandButton1_Click()
          Rows("11:11").Select
          Selection.Insert Shift:=xlDown
          Range("C10:F10").Select
          Selection.AutoFill Destination:=Range("C10:F11"), Type:=xlFillDefault
          Range("C10:F11").Select
          ActiveSheet.ChartObjects("Graphique 1").Activate
          ActiveChart.ChartArea.Select
          ActiveChart.SetSourceData Source:=Sheets("PANZANI SA PATES").Range( _
          "C1:C11,E1:E11"), PlotBy:=xlColumns
          ActiveWindow.Visible = False
          Windows("suivi fournisseurs REMY.xls").Activate
          ActiveSheet.ChartObjects("Graphique 2").Activate
          ActiveChart.ChartArea.Select
          ActiveChart.SetSourceData Source:=Sheets("PANZANI SA PATES").Range( _
          "C1:C11,F1:F11"), PlotBy:=xlColumns
          ActiveWindow.Visible = False
          Windows("suivi fournisseurs REMY.xls").Activate
          ActiveSheet.ChartObjects("Graphique 3").Activate
          ActiveChart.ChartArea.Select
          ActiveChart.SetSourceData Source:=Sheets("PANZANI SA PATES").Range("C1:D11") _
          , PlotBy:=xlColumns
          ActiveWindow.Visible = False
          Windows("suivi fournisseurs REMY.xls").Activate
          Range("G11").Select
          End Sub
          1
          2. el matador
            bonjour colle ta macro sur le forum pour ce qui ne va pas dans ta macro.
            0