MAJ graphique excel 97
Utilisateur anonyme
-
Utilisateur anonyme -
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?
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
-
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 -
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.
-
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. -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
