Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Bonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" a écrit dans le message de news:Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Bonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" <Vince@discussions.microsoft.com> a écrit dans le message de news:
17936922-AF50-4550-AA81-8A13BDB01EFD@microsoft.com...
Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Bonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" a écrit dans le message de news:Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:= _
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
VincentBonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" a écrit dans le message de
news:Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
Vincent
Bonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" <Vince@discussions.microsoft.com> a écrit dans le message de
news:
17936922-AF50-4550-AA81-8A13BDB01EFD@microsoft.com...
Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
VincentBonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" a écrit dans le message de
news:Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
VincentBonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" a écrit dans le message de
news:Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
Vincent
Bonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" <Vince@discussions.microsoft.com> a écrit dans le message de
news:
17936922-AF50-4550-AA81-8A13BDB01EFD@microsoft.com...
Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
VincentBonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" a écrit dans le message de
news:Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
VincentBonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" a écrit dans le message de
news:Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
Vincent
Bonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" <Vince@discussions.microsoft.com> a écrit dans le message de
news:
17936922-AF50-4550-AA81-8A13BDB01EFD@microsoft.com...
Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
VincentBonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" a écrit dans le message de
news:Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
J'ai exécuté ton code sans erreur.
Daniel
"Vince" a écrit dans le message de news:Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
VincentBonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" a écrit dans le message de
news:Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
J'ai exécuté ton code sans erreur.
Daniel
"Vince" <Vince@discussions.microsoft.com> a écrit dans le message de news:
1F1B3204-F8AD-4963-986B-086B17BCFD6B@microsoft.com...
Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
Vincent
Bonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" <Vince@discussions.microsoft.com> a écrit dans le message de
news:
17936922-AF50-4550-AA81-8A13BDB01EFD@microsoft.com...
Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
J'ai exécuté ton code sans erreur.
Daniel
"Vince" a écrit dans le message de news:Nickel ce cjoint. Je connaissais pas...
Voilà le fichier:
http://cjoint.com/?htolxvWYQQ
Ce sont des données exportées depuis Bloomberg.
Merci d'avance de ton aide.
a+
VincentBonjour.
Peux tu poster les données de la plage servant à construire le graphique.
Mets-les dans un classeur sur www.cjoint.com et poste l'adresse générée.
Cordialement.
Daniel
"Vince" a écrit dans le message de
news:Bonjour à tous
Le code suivant est censé sélectionner la série par défaut d'un
graphique
qui vient d'être créé mais cela me génère une erreur 1004. C'est
pourtant
la
ligne de code qui est sortie de l'enregisteur de macro. L'erreur se
passe
lorsque le code atteint la ligne suivante:
ActiveChart.SeriesCollection(1).Select
Est-ce quelqu'un peut m'aider ?
Merci d'avance et bonne soirée.
Vince
Range("G2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
A = Range([G2], [I65536].End(xlUp)).Address
Charts.Add
ActiveChart.ChartType = xlBubble3DEffect
ActiveChart.SetSourceData Source:=Sheets("bonds").Range(A), PlotBy:=
_
xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="bonds"
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Name = "=""Bubbles"""
ActiveChart.SeriesCollection(1).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = False
.ShowNegativeBubbles = False
.SizeRepresents = xlSizeIsWidth
.BubbleScale = 60
End With
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
.TickLabels.NumberFormatLinked = True
End With
Je pense que cela vient du fait que mes données sont encore N/A au moment
où
elles doivent être traitées car elles ne s'actualisent qu'une fois la
macro
terminée.
Je pense que cela vient du fait que mes données sont encore N/A au moment
où
elles doivent être traitées car elles ne s'actualisent qu'une fois la
macro
terminée.
Je pense que cela vient du fait que mes données sont encore N/A au moment
où
elles doivent être traitées car elles ne s'actualisent qu'une fois la
macro
terminée.
Je pense que cela vient du fait que mes données sont encore N/A au moment
où
elles doivent être traitées car elles ne s'actualisent qu'une fois la
macro
terminée.
Essaie d'ajouter :
Application.Calculate
avant de construire ton graphique. D'autre part, en exécutant ta macro pas à
pas ou en plaçant un point d'arrêt avant la construction du graphique, tu
peux vérifier si la feuille se recalcule.
Daniel
Je pense que cela vient du fait que mes données sont encore N/A au moment
où
elles doivent être traitées car elles ne s'actualisent qu'une fois la
macro
terminée.
Essaie d'ajouter :
Application.Calculate
avant de construire ton graphique. D'autre part, en exécutant ta macro pas à
pas ou en plaçant un point d'arrêt avant la construction du graphique, tu
peux vérifier si la feuille se recalcule.
Daniel
Je pense que cela vient du fait que mes données sont encore N/A au moment
où
elles doivent être traitées car elles ne s'actualisent qu'une fois la
macro
terminée.
Essaie d'ajouter :
Application.Calculate
avant de construire ton graphique. D'autre part, en exécutant ta macro pas à
pas ou en plaçant un point d'arrêt avant la construction du graphique, tu
peux vérifier si la feuille se recalcule.
Daniel