Bonjour à tous,
dans le cadre de mon boulot, je travaille sur des suivis de contrat de service entre entités et ce, chaque mois. Je remplis donc une feuille qui élabore des graphes de détail et des graphes de synthèse. J'ai également un excel de synthèse mensuelle. Ma macro vient donc prendre les graphes de synhtèse dans chaque feuille de chaque mois pour les copier dans l'excel de synthèse.
Le problème du coup, c'est qu'elle est à rallonge pour le mois de décembre...
voici un extrait pour 1 mois , mais ceci se répète pour les 12 mois... je voulais donc savoir si on peut raccourcir tout ça...
'Copier coller les graphes de janvier
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b7").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 136
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF2").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b10").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 228
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF3").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b13").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 320
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF4").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b16").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 412
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF5").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b19").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 629
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF6").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b22").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 721
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF7").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b30").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 813
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF8").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b33").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 905
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF9").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b36").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 998
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF10").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b39").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 1214
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF11").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b42").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 1307
End With
Merci à tous de me lire et de m'aider !!
au plaisir de vous lire
Excellement vôtre !
dans le cadre de mon boulot, je travaille sur des suivis de contrat de service entre entités et ce, chaque mois. Je remplis donc une feuille qui élabore des graphes de détail et des graphes de synthèse. J'ai également un excel de synthèse mensuelle. Ma macro vient donc prendre les graphes de synhtèse dans chaque feuille de chaque mois pour les copier dans l'excel de synthèse.
Le problème du coup, c'est qu'elle est à rallonge pour le mois de décembre...
voici un extrait pour 1 mois , mais ceci se répète pour les 12 mois... je voulais donc savoir si on peut raccourcir tout ça...
'Copier coller les graphes de janvier
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b7").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 136
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF2").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b10").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 228
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF3").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b13").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 320
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF4").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b16").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 412
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF5").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b19").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 629
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF6").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b22").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 721
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF7").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b30").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 813
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF8").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b33").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 905
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF9").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b36").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 998
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF10").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b39").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 1214
End With
Workbooks("NCSI ValOise 01J09.xls").Sheets("M").Activate
ActiveSheet.ChartObjects("GRAF11").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Workbooks("NCSI ValOise Synthèse 02F09.xls").Sheets("Mois").Activate
Range("b42").Select
ActiveSheet.Paste
With ActiveChart.Parent
.Left = 14
.Top = 1307
End With
Merci à tous de me lire et de m'aider !!
au plaisir de vous lire
Excellement vôtre !