G
Guest
Invité
Bonjour,
Petit probleme dont la reponse m'echappe malgre moultes recherches et tentatives (en plus je suis sur que c'est assez simple :-s) !
Je voudrais ecrire une macro qui creerait un graphe (type bar chart) mais dont le range est variable. En gros, dependant de la base de donnee qu'on m'enverra, ca peut donner, par exemple, B2:C20 ou B2:C45 ou B2:C98 ou ...
Voici ce que j'ai jusqu'a present et en rouge ce qui ne va pas :
Sheets("Tables").Select
Range("B2").Select 'B2 et C2 sont les titres de mes colonnes
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=Sheets("Tables").Range("B2:C20"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Country Graph"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Country Allocation"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False
Si quelqu'un savait m'aider ce serait vraiment super.
Un tout grand merci d'avance...
Petit probleme dont la reponse m'echappe malgre moultes recherches et tentatives (en plus je suis sur que c'est assez simple :-s) !
Je voudrais ecrire une macro qui creerait un graphe (type bar chart) mais dont le range est variable. En gros, dependant de la base de donnee qu'on m'enverra, ca peut donner, par exemple, B2:C20 ou B2:C45 ou B2:C98 ou ...
Voici ce que j'ai jusqu'a present et en rouge ce qui ne va pas :
Sheets("Tables").Select
Range("B2").Select 'B2 et C2 sont les titres de mes colonnes
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=Sheets("Tables").Range("B2:C20"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Country Graph"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Country Allocation"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False
Si quelqu'un savait m'aider ce serait vraiment super.
Un tout grand merci d'avance...