MERLIN
XLDnaute Junior
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]
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]