Graphiques à bulles
Bonjour à tous, ^^
Quelqu'un à déjà été amené à automatiser un graphique à bulle sous VBA ?
Pour ma part je dois créer un graph prennant en abscisse un taux de marge et en ordonnée un taux de croissance.
La taille des bulles dépends du Chiffre d'affaire.
Les axes sont tracés en fonction des médianes.
je joint un fichier afin de vous montrez ce que je recherche plus clairement.
Merci à ce qui pourront m'aider !
A bientot !
melanie57 a écrit :Bonjour à tous, ^^
Quelqu'un à déjà été amené à automatiser un graphique à bulle sous VBA ?
Pour ma part je dois créer un graph prennant en abscisse un taux de marge et en ordonnée un taux de croissance.
La taille des bulles dépends du Chiffre d'affaire.
Les axes sont tracés en fonction des médianes.
je joint un fichier afin de vous montrez ce que je recherche plus clairement.
Merci à ceux qui pourront m'aider !
A bientôt !
Re,
C'est à tous à fais cela Jean Eric, je vais essayer d'automatiser le tout maintenant dans une macro VBA afin de pouvoir actualiser le graphique:
Voici les différentes étapes:
1. Calcul de la médiane
2. Calcul des nouvelles coordonnées (on soustrait la médiane des anciennes coordonnées)
3. Construction du graphique à bulle
4. Affichage des étiquettes
J'espère que cela à du sens !
Merci de votre implication !
Cordielement,
Re.
J'ai essayée de faire une macro pour automatiser la tâche mais j'ai une erreur que je n'arrive pas à debeugger !
Peut être que vous réussirai à trouver le hic !
Bonjour,
Voir ce nouveau fichier avec un début de VBA pour créer le graphique à bulles.
A te relire.
Cdlt.
Option Explicit
Option Private Module
Public Sub CreateBubbleChart()
Dim strWb As String
Dim Ws As Worksheet
Dim myChtObj As ChartObject
Application.ScreenUpdating = False
Application.DisplayAlerts = False
strWb = ActiveWorkbook.Name
Set Ws = Worksheets("Don 2")
On Error Resume Next
Ws.ChartObjects("test jep").Delete
On Error GoTo 0
Application.DisplayAlerts = True
' on crée le graphique
Set myChtObj = Ws.ChartObjects.Add _
(Left:=20, Width:=600, Top:=100, Height:=400)
myChtObj.Name = "test jep"
' on définit le graphique
With myChtObj.Chart
.ChartArea.AutoScaleFont = False
.ChartArea.Font.FontStyle = "Calibri"
' type de graphique
.ChartType = xlXYScatter
.ChartType = xlBubble
' style graphique
.ChartStyle = 24
' on efface les séries existantes
Do Until .SeriesCollection.Count = 0
.SeriesCollection(1).Delete
Loop
With .SeriesCollection.NewSeries
.Name = ""
.XValues = Range("d.Y")
.Values = Range("d.X")
.BubbleSizes = Range("d.CA")
End With
End With
Set Ws = Nothing: Set myChtObj = Nothing
End SubRe,
Je pensais qu'avec ma technique on pourrait y arriver aussi mais sa ne donne pas le résultat attendu je ne sais pas pourquoi
Je vous laisse jeter un oeil dessus
Re,
Tu as opté pour créer autant de séries que de familles. Ce n'est peut-être pas le plus judicieux.
Avant tout un graphique à bulles est un graphique en nuage de points (XY).
Regarde mon dernier envoi.
A te relire.
Cdlt.