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é
Une petite aide serais la bienvenue.
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
Merci
Partager