Re-bonjour pour certains !
Je rencontre des problèmes jour après jour et ce forum commence à devenir ma bible....
Mon problème est le suivant : j'ai plus de 50 graphiques sur une feuille (feuill1) Excel et j'aimerais et j'aimerais qu'une macro me coupe le graphique 1, le colle sur la feuille suivante (feuill2) et lui donne une taille bien précise puis me coupe le graphique 2, le colle sur la feuille suivante (feuill2) à la suite du graphiqe 1 et lui donne une taille bien précise...Etc
j'ai essayé de faire une ébauche de boucle mais bon c'est pas encore ça...
For X = 1 To ActiveChart.ChartObjects.Count
With ActiveChart.ChartObjects(X)
.Activate
.Parent.Cut
End With
Sheets("Graphes").Select
ActiveSheet.Paste
ActiveSheet.Shapes("Graphique 1").Height = 453.5433070866
ActiveSheet.Shapes("Graphique 1").Width = 623.6220472441
Next X
End Sub
MERCI
Je rencontre des problèmes jour après jour et ce forum commence à devenir ma bible....
Mon problème est le suivant : j'ai plus de 50 graphiques sur une feuille (feuill1) Excel et j'aimerais et j'aimerais qu'une macro me coupe le graphique 1, le colle sur la feuille suivante (feuill2) et lui donne une taille bien précise puis me coupe le graphique 2, le colle sur la feuille suivante (feuill2) à la suite du graphiqe 1 et lui donne une taille bien précise...Etc
j'ai essayé de faire une ébauche de boucle mais bon c'est pas encore ça...
For X = 1 To ActiveChart.ChartObjects.Count
With ActiveChart.ChartObjects(X)
.Activate
.Parent.Cut
End With
Sheets("Graphes").Select
ActiveSheet.Paste
ActiveSheet.Shapes("Graphique 1").Height = 453.5433070866
ActiveSheet.Shapes("Graphique 1").Width = 623.6220472441
Next X
End Sub
MERCI