Discussion :

[kalimero95]

Bonjour,

J'éssais de cree une macro qui me permette de De cree un grqph type bubble composé de 10 series

Mon soucie est a la ligne 3:

ActiveChart.ChartType = xlBubble

il me sort une erreur 1004 j'ai éssayé plusieur méthode mais aucune n'a reelment fonctionné

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Sub TableauCriticite()
    Range("A2:D2").Select
    Charts.add
    ActiveChart.ChartType = xlBubble
    ActiveChart.SetSourceData Source:=Sheets("Domaine2").Range("A2:D2"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "=Domaine2!R2C2"
    ActiveChart.SeriesCollection(1).Values = "=Domaine2!R2C3"
    ActiveChart.SeriesCollection(1).Name = "=Domaine2!R2C1"
    ActiveChart.SeriesCollection(1).BubbleSizes = "=Domaine2!R2C4"
    ActiveChart.SeriesCollection(2).XValues = "=Domaine2!R3C2"
    ActiveChart.SeriesCollection(2).Values = "=Domaine2!R3C3"
    ActiveChart.SeriesCollection(2).Name = "=Domaine2!R3C1"
    ActiveChart.SeriesCollection(2).BubbleSizes = "=Domaine2!R3C4"
    ActiveChart.SeriesCollection(3).XValues = "=Domaine2!R4C2"
    ActiveChart.SeriesCollection(3).Values = "=Domaine2!R4C3"
    ActiveChart.SeriesCollection(3).Name = "=Domaine2!R4C1"
    ActiveChart.SeriesCollection(3).BubbleSizes = "=Domaine2!R4C4"
    ActiveChart.SeriesCollection(4).XValues = "=Domaine2!R5C2"
    ActiveChart.SeriesCollection(4).Values = "=Domaine2!R5C3"
    ActiveChart.SeriesCollection(4).Name = "=Domaine2!R5C1"
    ActiveChart.SeriesCollection(4).BubbleSizes = "=Domaine2!R5C4"
    ActiveChart.SeriesCollection(5).XValues = "=Domaine2!R6C2"
    ActiveChart.SeriesCollection(5).Values = "=Domaine2!R6C3"
    ActiveChart.SeriesCollection(5).Name = "=Domaine2!R6C1"
    ActiveChart.SeriesCollection(5).BubbleSizes = "=Domaine2!R6C4"
    ActiveChart.SeriesCollection(6).XValues = "=Domaine2!R7C2"
    ActiveChart.SeriesCollection(6).Values = "=Domaine2!R7C3"
    ActiveChart.SeriesCollection(6).Name = "=Domaine2!R7C1"
    ActiveChart.SeriesCollection(6).BubbleSizes = "=Domaine2!R7C4"
    ActiveChart.SeriesCollection(7).XValues = "=Domaine2!R8C2"
    ActiveChart.SeriesCollection(7).Values = "=Domaine2!R8C3"
    ActiveChart.SeriesCollection(7).Name = "=Domaine2!R8C1"
    ActiveChart.SeriesCollection(7).BubbleSizes = "=Domaine2!R8C4"
    ActiveChart.SeriesCollection(8).XValues = "=Domaine2!R9C2"
    ActiveChart.SeriesCollection(8).Values = "=Domaine2!R9C3"
    ActiveChart.SeriesCollection(8).Name = "=Domaine2!R9C1"
    ActiveChart.SeriesCollection(8).BubbleSizes = "=Domaine2!R9C4"
    ActiveChart.SeriesCollection(9).XValues = "=Domaine2!R10C2"
    ActiveChart.SeriesCollection(9).Values = "=Domaine2!R10C3"
    ActiveChart.SeriesCollection(9).Name = "=Domaine2!R10C1"
    ActiveChart.SeriesCollection(9).BubbleSizes = "=Domaine2!R10C4"
    ActiveChart.SeriesCollection(10).XValues = "=Domaine2!R11C2"
    ActiveChart.SeriesCollection(10).Values = "=Domaine2!R11C3"
    ActiveChart.SeriesCollection(10).Name = "=Domaine2!R11C1"
    ActiveChart.SeriesCollection(10).BubbleSizes = "=Domaine2!R11C4"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Domaine2"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Criticite"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Ca"
    End With
    With ActiveChart
        .HasAxis(xlCategory, xlPrimary) = True
        .HasAxis(xlValue, xlPrimary) = True
    End With
    ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
    With ActiveChart.Axes(xlCategory)
        .HasMajorGridlines = True
        .HasMinorGridlines = False
    End With
    With ActiveChart.Axes(xlValue)
        .HasMajorGridlines = False
        .HasMinorGridlines = False
    End With
End Sub

Une petite aide serais la bienvenue.

Merci