[XL-2003] Macro Changer Plage de source Graphiques [Résolu]

[julienbx]

Bonjour à Tous,

Je cherche à créer une macro me permettant de :

Sélectionner la plage B2:D2 de mon tableau en tant que source du graphique circulaire présent sur mon fichier excel, et exporter ensuite ce graphique en tant que fichier image.
La macro doit ensuite se poursuivre pour changer la source du graphique en B3:D3 et enregistrer à son tour ce nouveau graphique en image
Ensuite avec la plage B4:D4, puis B5:D5... et ainsi de suite.

Mon fichier contient plus de 2000 lignes,

J'ai réussi à créer une macro qui fonctionne mais sur laquelle je spécifie la plage variable sur chaque nouvelle ligne de ma procédure.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub ExportGraphenGIF()

ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1:D1,B2:D2"), PlotBy:=xlRows: ActiveChart.Export Filename:=Range("A2") & "_" & "Graph_Remu" & ".gif"

ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1:D1,B3:D3"), PlotBy:=xlRows: ActiveChart.Export Filename:=Range("A3") & "_" & "Graph_Remu" & ".gif"

ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1:D1,B4:D4"), PlotBy:=xlRows: ActiveChart.Export Filename:=Range("A4") & "_" & "Graph_Remu" & ".gif"

ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1:D1,B5:D5"), PlotBy:=xlRows: ActiveChart.Export Filename:=Range("A5") & "_" & "Graph_Remu" & ".gif"

ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1:D1,B6:D6"), PlotBy:=xlRows: ActiveChart.Export Filename:=Range("A6") & "_" & "Graph_Remu" & ".gif"

'et ainsi de suite pour arriver à la ligne 2000'

end sub

Comment modifier ma macro pour que la plage dynamique et non pas entrée manuellement sur chaque nouvelle ligne de ma macro ?

Merci pour toute aide qui me serait bien précieuse,

Cdt

[julienbx]

Pour info, j'avance (je crois...) mais mes fichiers gif générés sont tous les mêmes, si quelqu'un sait pourquoi ??

Code :

1
2
3
4
5
6
Sub ExportGraphenGIF()
For i = 2 To 20
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1:D1,Bi:Di"), PlotBy:=xlRows
ActiveChart.Export Filename:=Range("A" & i) & "_" & "Graph_Remu" & ".gif"
Next i
End Sub

[patricktoulon]

bonjour
essaie ca

Code :

1
2
3
4
5
6
7
8
9
 
'Voila mais sur 2000 lignes sa doit etre long
For i = 1 To Sheets(1).Range("B65530").End(xlUp).Row
nom = "graphique " & i & " de " & "B1,D1,B" & i & ",D" & i
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1,D1,B" & i & ",D" & i), PlotBy:=xlRows: ActiveChart.Export Filename:=nom & ".gif"
ActiveChart.ChartArea.Select
    ActiveChart.Parent.Delete
Next

au plaisir

[julienbx]

Un Grand merci à toi, je m'arrache les cheveux depuis 3 jours sur cette macro !!!

POur info au lieu de B1,D1 j'utilise B1:D1 car sinon la colonne C n'est pas récupérée dans mes Graphs...

Voici mon code final qui fonctionne comme je le souhaite grâce à toi :-)

Code :

1
2
3
4
5
6
7
8
Sub ExportGraphenGIF()
For i = 2 To 20
NomGraphique = i & " Rému"
ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range("B1:D1,B" & i & ":D" & i), PlotBy:=xlRows
ActiveChart.Export Filename:=NomGraphique & ".gif"
ActiveChart.ChartArea.Select
Next
End Sub

J'ai remplacé le Sheets(1).Range("B65530").End(xlUp).Row par une valeur fixe (20) pour des raisons de tests (2000 lignes c'est effectivement un peu long, mais ça fonctionne), je ne souhaitais pas aller jusqu'au bas de ma liste pour tester, mais ta méthode fonctionne très bien.

UN Grand grand Grand Merci encore...

Julien