SOUCI MACRO GRAPHIQUE

[MERLIN]

Bonjour à tous les WeekExcelNautes !!!

J'ai un choua besoin d'un conseil pour parfaire ma macro concernant la création d'un graphique...

J'ai deux tableaux de valeurs...
J'aimerais que lorsque je selectionne la cellule B5, la macro prenne en référence l'ensemble des données de ce tableau.... et de même en sélectionnant la cellule B8... tout en gardant la même macro. Vous verrez en lisant le code qui j'ai été obligé de lui donner une sélection de référence...

Sub CREER_GRAPHIQUE()

Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets('Feuil1').Range('B5:F6'), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:='Feuil1'
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.CrossesAt = 1
.TickLabelSpacing = 1
.TickMarkSpacing = 1
.AxisBetweenCategories = False
.ReversePlotOrder = False
End With
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.HasDropLines = True
.HasHiLoLines = False
.HasUpDownBars = False
.VaryByCategories = False
End With
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Range('B5').Select
End Sub

Est-ce possible à votre avis ???

D'avance merci !

MERLIN :woohoo: [file name=CREER_GRAPHIQUE_MACRO.zip size=10194]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CREER_GRAPHIQUE_MACRO.zip[/file]

 

[Baside]

Bonsoir Merlin, le Forum,

Voir le fichier joint, il y a peut être plus simple mais il marche.
Il faut cliquer sur B5 ou B8 pour avoir les courbes.
Bonne soirée, Hervé.

 

[MERLIN]

Salut HERVE,...

je ne trouve pas ton fichier joint...

merci encore pour ta réponse...

je l'attends avec impatience.

Merlin

 

[Baside]

Bonsoir Merlin, le Forum,

M'enfin, le bon fichier arrive.



A+, Hervé. [file name=CREER GRAPH 2_20050417191025.zip size=12482]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CREER GRAPH 2_20050417191025.zip[/file]