Créer un graphe à bulles avec une macro

**keepcalm** · 17/06/2014, 18h23

Bonjour tout le monde,

Je vous présente mon problème. Je dois créer un graphe à bulles avec sur l'axe X une date de création de liste, sur l'axe Y un numéro de types de listes (par exemple liste de finance correspond au numéro 3), et la taille de la bulle le nombre de participants à la liste.
J'ai un tableau dont la taille est variable, car je rajoute automatiquement des lignes au tableau à chaque rajout de liste. Chaque ligne du tableau correspond à une bulle avec le nom de la liste, la date de création, le numéro de liste, et le nombre des participants.

J'ai déjà fait une tentative de macro pour créer mon graphe dans un onglet dédié mais il m'affiche après exécution :
"La méthode cells de l'objet global a échoué" et pointe vers la ligne 12 de mon code ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub graph()
 
Dim u As Long
Dim w As Long
For u = 2 To 100
For w = 1 To 100
Sheets("Feuil3").Range("B2:E250").Select
Charts.Add
ActiveChart.ChartType = xlBubble
ActiveChart.SetSourceData Source:=Sheets("Feuil3").Range("B2:E250"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(w).XValues = Cells(u, 2)
ActiveChart.SeriesCollection(w).Values = Cells(u, 3)
ActiveChart.SeriesCollection(w).BubbleSizes = Cells(u, 4)
ActiveChart.SeriesCollection(w).Name = Cells(u, 1)
ActiveChart.Location Where:=Sheets("Feuil3")
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Next w
Next u
End Sub

Merci pour votre aide

**mercatog** · 17/06/2014, 22h21

1. Tu n'as pas besoin des Select
2. Tu peux créer directement un objet graphique sur ta feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
Sub Graph()
Dim LastLig As Long, i As Long
Dim Ch As Chart
Dim DATA
 
Application.ScreenUpdating = False
With Worksheets("Feuil3")
    Set Ch = .ChartObjects.Add(240, 50, 600, 340).Chart
    With Ch
        .ChartArea.ClearContents
        .ChartType = xlBubble
        .HasTitle = False
        'pour supprimer la légende
        '.HasLegend = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
        .Axes(xlCategory).TickLabels.NumberFormat = "dd/mm/yyyy"
    End With
 
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = 2 To LastLig
        DATA = .Range("A" & i).Resize(, 4)
        With Ch.SeriesCollection.NewSeries
            .Name = DATA(1, 1)
            .BubbleSizes = DATA(1, 4)
            .Values = DATA(1, 3)
            .XValues = CLng(DATA(1, 2))
            'Pour inscrire le nom des bulles
'            .ApplyDataLabels
'            .DataLabels.ShowSeriesName = True
'            .DataLabels.ShowValue = False
        End With
    Next i
End With
Set Ch = Nothing
End Sub

**keepcalm** · 18/06/2014, 10h59

Merci pour ta réponse.

Quand j'essaie d'exécuter ton code, j'ai une erreur 1004 :"Erreur définie par l'application ou par l'objet" et il me pointe vers la ligne ".Values= DATA(1,3)". Je ne comprends pas ce problème. Peux-tu m'aider stp?

Merci.