Graph à bulle - pblème echelle

Michel_ja · 3 Octobre 2009

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 · 4 Octobre 2009

Re : Graph à bulle - pblème echelle

Bonsoir Michel_ja

Un essai... ...peu lisible !

ROGER2327
#1817

Michel_ja · 4 Octobre 2009

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 · 4 Octobre 2009

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 :

Code:

[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 · 5 Octobre 2009

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 · 5 Octobre 2009

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 · 5 Octobre 2009

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.

Graph à bulle - pblème echelle

Michel_ja

XLDnaute Occasionnel

Pièces jointes

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Michel_ja

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Michel_ja

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Discussions similaires

Graph à bulle - pblème echelle

Michel_ja

XLDnaute Occasionnel

Pièces jointes

ROGER2327

XLDnaute Barbatruc

Pièces jointes

Michel_ja

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

Michel_ja

XLDnaute Occasionnel

ROGER2327

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency