A voir également:
- MAJ graphique excel 97
- Liste déroulante excel - Guide
- Graphique excel - Guide
- È maj - Guide
- Formule excel - Guide
- Si et excel - Guide
5 réponses
Utilisateur anonyme
11 juil. 2008 à 11:32
11 juil. 2008 à 11:32
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
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
Utilisateur anonyme
11 juil. 2008 à 11:59
11 juil. 2008 à 11:59
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.
Utilisateur anonyme
15 juil. 2008 à 08:50
15 juil. 2008 à 08:50
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.
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