VBA-E ENCORE PB Macro VBA qui marche pas
Bonjour à tous,
je suis sur un projet que je dois réaliser seul en VBA, mais malheureusement mes connaissances en programmation en VBA sont limités,
j'ai appris à utilser l'enregistreur de macro d'Excel ensuite de faire les modifications nécessaires pour dynamiser mes programmes,
j'ai réussi à franchir la prmière étape grace à votre aide et en particulier celui du modérateur de ce site mais là je reviens avec une question qui peut paraître très simple mais que je n'arrive pas à débloquer depuis 2 jours.
En fait j'utilise comme d'habitude mon enregistreur de macro afin de créer un graphique ensuite j'essaye de le rendre dynamique mais malheureusement une fois l'enregistrement de la macro est terminé, quand je tente de la relancé après modification de quelque ligne de mon code mon programme bug au niveau de la création des premières courbes, soit au niveau de la première serie sinon la dernière, j'aimerai bien trouvé une solution pour ce problème et comprendre pourquoi pas le comment de la chose, je tiens à vous informer que je me base sur une feuille excel qui contient les données, appelé : PROFILCR.xls les erreurs sont produites au niveau de la ligne en rouge sinon ceux qui sont en vert
Voici le code ci-joint :
Code:
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
| Sub MAC()
'
' MAC Macro
' Macro enregistrée le 15/01/2007 par Crédit Agricole SA
'
'
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=[profilCR.xls]Feuil1!R2C6:R42C6"
ActiveChart.SeriesCollection(1).Values = "=[profilCR.xls]Feuil1!R2C7:R42C7"
ActiveChart.SeriesCollection(1).Name = "=[profilCR.xls]Feuil1!R1C1" ActiveChart.SeriesCollection(2).XValues = "=[profilCR.xls]Feuil1!R55C11:R57C11"
ActiveChart.SeriesCollection(2).Values = "=[profilCR.xls]Feuil1!R55C14:R57C14"
ActiveChart.SeriesCollection(2).Name = "=[profilCR.xls]Feuil1!R54C11"
ActiveChart.SeriesCollection(3).XValues = "=[profilCR.xls]Feuil1!R55C12:R57C12"
ActiveChart.SeriesCollection(3).Values = "=[profilCR.xls]Feuil1!R55C14:R57C14"
ActiveChart.SeriesCollection(3).Name = "=[profilCR.xls]Feuil1!R54C12"
ActiveChart.SeriesCollection(4).XValues = "=[profilCR.xls]Feuil1!R61C4:R63C4"
ActiveChart.SeriesCollection(4).Values = "=[profilCR.xls]Feuil1!R61C5:R63C5"
ActiveChart.SeriesCollection(4).Name = "=[profilCR.xls]Feuil1!R60C5" ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
With ActiveChart .HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = _
"moyenne trimistrieelle"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "poids de la CR"
End With
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With |
Merci d'avnce de jeter un coup d'oeil sur mon programme.;)
