Monsieur Excel
Pour tout savoir faire sur Excel !

18 avril 2012

Utilisation d’un graphe à bulles

Dans l’article « Graphe X/Y avec mesure de force » du 4 avril, nous avons vu comment créer un graphe en nuage de points la couleur et la forme des points identifieraient la « force » indiquée par une troisième colonne de données numériques. Il serait utile que vous lisiez cet article avant de lire celui-ci.

Un lecteur, dans son commentaire, a demandé s’il ne serait pas plus utile – dans une telle situation – de faire appel à un graphe à bulles. Nous allons donc, dans cet article, comparer les deux solutions.

Création du graphe à bulles

Pour créer le graphe à bulles, il suffit de sélectionner les données en A2:C16, et d’insérer – via les commandes « Autres graphiques » puis « Bulles », le premier type de graphe à bulles.

Pour obtenir le résultat représenté à droite dans la copie d’écran ci-dessous, nous avons modifié le quadrillage naturel en prenant un pas de 10, ajouté un quadrillage vertical – lui aussi par pas de 10 – et enfin défini un diamètre des bulles à l’échelle de 30…

Comparaison des deux solutions

Le graphique à bulles est évidemment bien plus simple à créer, puisqu’il ne nécessite pas la création des formules des colonnes E à F.

Il présente en outre l’avantage que le diamètre des bulles est vraiment proportionnel aux valeurs de la colonne C, et que l’on n’est pas ainsi limité à trois catégories.

Cela peut aussi se révéler un inconvénient si l’on souhaite effectivement faire apparaître trois familles comme dans le cas de notre graphique original.

En conclusion, vous avez là deux solutions différentes, chacune avec ses avantages et ses inconvénients !

rédigé par Hervé Thiriez | 2 commentaire(s)

2 Commentaire(s):

  • Ci-joint la macro de coloriage des catégories(3 comme dans l'exemple mais aisément modifiable pour n) pour le graphique à bulles.
    Sub colorie_bulles()
    Dim série As Series
    Dim i As Integer
    Set série = ActiveSheet.ChartObjects("Graphique 1").Chart.SeriesCollection(1)
    With série
    For i = 1 To .Points.Count
    With .Points(i).Format.Fill.ForeColor
    Select Case Range(série.BubbleSizes).Cells(i).Value
    Case Is <= 33
    .RGB = RGB(255, 0, 0)
    Case Is <= 66
    .RGB = RGB(0, 255, 0)
    Case Else
    .RGB = RGB(0, 0, 255)
    End Select
    End With
    Next i
    End With
    End Sub

    By Anonymous cduigou, sur 11:20 AM  

  • Bonjour,
    Pour faire apparaître les trois familles, il suffit de reprendre l'article du 4 avril et de changer le type de graphique en graphique à bulles. Puis modifier chaque séries faible, moyen, fort pour obtenir le nom, l'abscisse, l'ordonnée, et la taille des bulles
    Appliquer ensuite le format des bulles conformément à l'article du 18 avril
    Cordialement

    By Anonymous jpr73, sur 2:26 PM  

Enregistrer un commentaire

<< Accueil