Bonjour,
Je suis débutante en macro.
Je m'excuse d'avance si ce problème a déjà été exposé dans un autre sujet (que je n'ai pas trouvé).
Voici mon problème, je dois effectuer beaucoup de radars de même échelle, de même étiquette, avec une seule courbe à chaque fois.
Pour se faire, j'ai un tableau excel où chaque ligne correspond au nom et aux valeurs d'une courbe d'un radar (l'étiquette ne change pas).
Mon souci, lors de la création d'un radar, est de pourvoir modifier le nom et les valeurs de la courbe en passant d'une ligne à l'autre.
1er radar => nom : A2, valeurs B2 à E2
2ème radar => nom : A3, valeurs B3 à E3
....
Voici une partie de mon code :
Sub Macro2()
'
'
'Dim x As Integer
'La variable x va successivement prendre les valeurs 3 à 10
For x = 0 To 8
Charts.Add
ActiveChart.ChartType = xlRadarMarkers
ActiveChart.SetSourceData Source:=Sheets("CAP").Range("A2:C2"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "=CAP!R2C8:R2C12"
ActiveChart.SeriesCollection(1).Values = "=CAP!R3C8:R3C12"
ActiveChart.SeriesCollection(1).Name = "=CAP!R3C7"
ActiveChart.Location Where:=xlLocationAsObject, Name:="CAP"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"CAP 2 ans Monteur en isolation thermique et " & Chr(10) & "acoustique - 1CAP2"
End With
ActiveChart.PlotArea.Select
Selection.Width = 142
Selection.Height = 143
Selection.Left = 120
Selection.Top = 71
Selection.Width = 162
Selection.Height = 165
Next x
End Sub
J'ai essayé ceci mais ca ne fonctionne pas
ActiveChart.SeriesCollection(1).Values = "=CAP!R(3+x)C8:R(3+x)C12"
Je vous remercie pour votre aide.
A bientot
Je suis débutante en macro.
Je m'excuse d'avance si ce problème a déjà été exposé dans un autre sujet (que je n'ai pas trouvé).
Voici mon problème, je dois effectuer beaucoup de radars de même échelle, de même étiquette, avec une seule courbe à chaque fois.
Pour se faire, j'ai un tableau excel où chaque ligne correspond au nom et aux valeurs d'une courbe d'un radar (l'étiquette ne change pas).
Mon souci, lors de la création d'un radar, est de pourvoir modifier le nom et les valeurs de la courbe en passant d'une ligne à l'autre.
1er radar => nom : A2, valeurs B2 à E2
2ème radar => nom : A3, valeurs B3 à E3
....
Voici une partie de mon code :
Sub Macro2()
'
'
'Dim x As Integer
'La variable x va successivement prendre les valeurs 3 à 10
For x = 0 To 8
Charts.Add
ActiveChart.ChartType = xlRadarMarkers
ActiveChart.SetSourceData Source:=Sheets("CAP").Range("A2:C2"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "=CAP!R2C8:R2C12"
ActiveChart.SeriesCollection(1).Values = "=CAP!R3C8:R3C12"
ActiveChart.SeriesCollection(1).Name = "=CAP!R3C7"
ActiveChart.Location Where:=xlLocationAsObject, Name:="CAP"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = _
"CAP 2 ans Monteur en isolation thermique et " & Chr(10) & "acoustique - 1CAP2"
End With
ActiveChart.PlotArea.Select
Selection.Width = 142
Selection.Height = 143
Selection.Left = 120
Selection.Top = 71
Selection.Width = 162
Selection.Height = 165
Next x
End Sub
J'ai essayé ceci mais ca ne fonctionne pas
ActiveChart.SeriesCollection(1).Values = "=CAP!R(3+x)C8:R(3+x)C12"
Je vous remercie pour votre aide.
A bientot