Graph à bulle - pblème echelle

[Michel_ja]

Bonjour à tous,
je cherche à faire un graph à bulle avec Excel 2007: en abcisse j'ai la taille des voitures (Length), en ordonnées la hauteur (Height) et je souhaiterai que la taille de la bulle soit proportionnelle aux volumes de vente (colonne D). J'ai joint une petite photo. Merci pour votre aide.

 

[ROGER2327]

Re : Graph à bulle - pblème echelle

Bonsoir Michel_ja

Un essai... ...peu lisible !​

ROGER2327
#1817

 

[Michel_ja]

Re : Graph à bulle - pblème echelle

Merci Roger2327 pour ton aide.
C'est vrai que ce n'est pas très lisible mais je vais essayer d'améliorer tout cela. J'ai essayé de le refaire par moi même mais ce n'est pas simple : faut-il entrer les lignes 1 par 1 ? j'aimerai selectionner l'ensemble pour aller plus vite. Aussi comment fait-on pour changer l'origine de l'étiquette car il ne m'affiche pas le nom voulu ?
Encore une fois, c'est vraiment sympa de passer du temps pour nous aider.

 

[ROGER2327]

Re : Graph à bulle - pblème echelle

Re...

Il est vrai qu'il est fastidieux de créer les séries une à une. J'en ai donc créé une seule, puis j'ai exécuté la procédure :

[COLOR="DarkSlateGray"]Sub Macro1()
Dim i
    Sheets("Graph1").Select
'    ActiveSheet.ChartObjects("Graphique 9").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.ChartType = xlBubble
    For i = 2 To 68
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(i - 1).XValues = "=Feuil1!R" & i & "C2"
    ActiveChart.SeriesCollection(i - 1).Values = "=Feuil1!R" & i & "C3"
    ActiveChart.SeriesCollection(i - 1).Name = "=Feuil1!R" & i & "C1"
    ActiveChart.SeriesCollection(i - 1).BubbleSizes = "=Feuil1!R" & i & "C4"
    ActiveChart.SeriesCollection(i - 1).Select
    Selection.Has3DEffect = True
    ActiveChart.SeriesCollection(i - 1).DataLabels.Select
    With Selection
        .AutoScaleFont = False
        .Font.Size = 8
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Position = xlLabelPositionCenter
        .Orientation = xlHorizontal
    End With
    Next i
    ActiveWindow.Visible = False
    Windows("Graph bul M.xls").Activate
End Sub[/COLOR]

Elle est à coup sûr mal fichue (je ne connais pas grand chose aux graphiques) mais elle m'a donné le résultat que j'ai déposé hier.
Si ça peut vous être utile...​

ROGER2327
#1821

 

[Michel_ja]

Re : Graph à bulle - pblème echelle

J'ai pris la peine de rentrer une centaine de séries mais j'en encore un souci !!! TOUTES LES SERIES n'apparaissent pas ??? Je ne comprend pas car elle figurent toutes dans les données. ??? Y'aurait-il un "bubble" expert sur le net ? 🙂
Merci d'avance.

 

[ROGER2327]

Re : Graph à bulle - pblème echelle

Re...

Ma faible connaissance des possibilités graphiques d'Excel ne me permet pas de vous répondre précisément. Mais "enquêtez" tout de même dans cette voie : existe-t-il une limite infranchissable au nombre de séries tolérées par une feuille graphique. Je n'en sais rien.​

Bon courage !
ROGER2327
#1831

 

[MJ13]

Re : Graph à bulle - pblème echelle

Bonjour Michel, Roger

existe-t-il une limite infranchissable au nombre de séries tolérées par une feuille graphique

Je pense que oui. Voir peut être dans l'aide.