Bonjour,
Je suis assez débutant sur VBA.
[je viens des macrocommandes Lotus 123 ...]
Je voudrais simplement créer un bouton Macro qui mes créé un graphique à partir d'une selection active en colonne, la macro devant fonctionner quelque soit la selection et quelque soit la colonne.
La macro suivante fonctionne mais me retourne une erreur [1004] à l'éxécution et crée le graphique dans un onglet distinct.
Sub CreationGraphe()
'
' Macro5 Macro
' Macro enregistrée le 03/06/2007 par J-Phi
'
'
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Tableau").Range(Selection) _
, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tableau"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End WithEnd Sub
Merci de votre aide et dispos pour aide en retour
Je suis assez débutant sur VBA.
[je viens des macrocommandes Lotus 123 ...]
Je voudrais simplement créer un bouton Macro qui mes créé un graphique à partir d'une selection active en colonne, la macro devant fonctionner quelque soit la selection et quelque soit la colonne.
La macro suivante fonctionne mais me retourne une erreur [1004] à l'éxécution et crée le graphique dans un onglet distinct.
Sub CreationGraphe()
'
' Macro5 Macro
' Macro enregistrée le 03/06/2007 par J-Phi
'
'
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Tableau").Range(Selection) _
, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tableau"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End WithEnd Sub
Merci de votre aide et dispos pour aide en retour