Precisions sur graphique !

[Monster]

Voici quelques precisions pour ceux qui ont lu mon précédent "appel à l'aide" :

Voici un exemple de données que j'ai dans une feuille...

Nom Société Att. Pen. Volume d'activité

AREA 33,5 22 >3
BEL AIR 15 33 <3
CAMPING GAZ 26 20 <3

A partir de ces données je veux generer un graphique de type bulle via code vba (par le biais d'un bouton par exemple!):
La deuxieme colonne en abscisse, la troisieme en ordonnée, et la troisieme pour la taille des bulles...
donc j'ai creer une macro (par le generateur de macros excel!) mais elle ne marche pas.

Voici mon code (un peu modifié)...En fait j'ai rajouter la boucle "for"
--------------------------------------------
Sub Macro1()

Dim i, j As Integer
i = 0 'SeriesCollection
j = 2 'Lignes

Charts.Add

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "PROSPECTS"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Attr."
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Pen."
End With

ActiveChart.SetSourceData Source:=Sheets("Résultat").Columns("A😀"), PlotBy:= _
xlColumns
ActiveChart.ChartType = xlBubble

For j = 2 To Sheets("Résultat").UsedRange.Rows.Count
i = i + 1
j = j + 1
ActiveChart.SeriesCollection(i).XValues = "=Résultat!R" & j & "C2"
ActiveChart.SeriesCollection(i).Values = "=Résultat!R" & j & "C3"
ActiveChart.SeriesCollection(i).Name = "=Résultat!R" & j & "C1"
ActiveChart.SeriesCollection(i).BubbleSizes = "=Résultat!R" & j & "C4"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False
Next
--------------------------------------------

Merci à tous pour votre aide...

 

[Sylvain]

Je n'ai pas compris l'intérêt de l'utilisation d'une macro, ne peut on pas faire graphique croisé dynamique ?

A+

 

[Philippe]

ActiveChart.SeriesCollection(i).BubbleSizes = "=Résultat!R" & j & "C4"

ne marche pas en Excel 97 - tout fonctionne en Excel 2000