modifier le format de lignes dans un graphique

Version imprimable

Bonjour,

Je cherche à modifier le format des lignes d’un graphiques de type XlLine dont le nombre de séries est variable.

Pour cela, j’utilise les argument suivants en vba:
Code:

1 2 3 4 5 6 7 8 9 10 Dim C C = ActiveChart.SeriesCollection.Count For T = 1 To C ActiveChart.SeriesCollection(T).Select With Selection.Border .Weight = xlMedium .LineStyle = xlContinuous End With Next T
Malheureusement, un message d'erreur

Citation:

Select method of Series class failed

est généré. Je planche dessus depuis un moment mais ne trouve pas de solution

Quelqu'un peut-il m'aider?

24/05/2011, 13h46
mercatog

Bonjour
mets ton code en entier.

Voici la macro intégrale.

Dans un premier temps j'efface toutes les séries. Ensuite, je vais chercher mes données sur Sheet1 (le nombre de colonnes est variable, suivant que les colonnes D à K de sheet soient alimentées ou non). Le problème à ce moment là est que le format de ligne générées n'est pas le format voulu, d'ou la partie du code qui me pause problème et qui vise à formater les lignes à ma convenance (largeur medium)

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
40
41
42
43
44
45
46
47
48
Sub Macro MAJ()
 
Sheets("Summary-3").Select
ActiveSheet.ChartObjects("Chart 54").Activate
 
Do While ActiveChart.SeriesCollection.Count > 0
 
ActiveChart.SeriesCollection(1).ChartType = xlColumnClustered
ActiveChart.SeriesCollection(1).Delete
 ActiveChart.ChartType = xlLine
 
Loop
 
    Dim nbcolonnes As Integer
    nbcolonnes = 9 - Sheets("Sheet1").Range("k6").End(xlToLeft).Column
 
    ActiveSheet.ChartObjects("Chart 54").Activate
    ActiveChart.ChartType = xlLine
 
        For n = 1 To nbcolonnes
        Dim M As Integer
        M = n + 2
 
    ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(n).Name = "=Sheet1!R7C[" & M & "]"
     ActiveChart.SeriesCollection(n).XValues = "=Sheet1!R9C2:R200C2"
    ActiveChart.SeriesCollection(n).Values = "=Sheet1!R9C[" & M & "]:R200C[" & M & "]"
 
         Next n
 
         Dim C
         C = ActiveChart.SeriesCollection.Count
 
         For T = 1 To C
 
 ActiveChart.SeriesCollection(T).Select
 
    With Selection.Border
 
        .Weight = xlMedium
        .LineStyle = xlContinuous
 
    End With
  Next T
 
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Summary-3"
 
End Sub

Essaies comme ceci

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
Sub Macro_MAJ()
Dim Grf As ChartObject
Dim NbColonnes As Integer, i As Integer
 
Application.ScreenUpdating = False
With Sheets("Sheet1")
    NbColonnes = 9 - .Cells(6, .Columns.Count).End(xlToLeft).Column
End With
 
Set Grf = Sheets("Summary-3").ChartObjects("Chart 54")
With Grf.Chart
    For i = .SeriesCollection.Count To 1 Step -1
        .SeriesCollection(i).Delete
    Next i
    .ChartType = xlLine
    For i = 1 To NbColonnes
        .SeriesCollection.NewSeries
        .SeriesCollection(i).Name = Sheets("Sheet1").Cells(7, i).Value
        .SeriesCollection(i).XValues = "=Sheet1!R9C2:R200C2"
        .SeriesCollection(i).Values = "=Sheet1!R9C[" & i + 2 & "]:R200C[" & i + 2 & "]"
    Next i
    For i = 1 To NbColonnes
        With .SeriesCollection(i).Border
            .Weight = xlMedium
            .LineStyle = xlContinuous
        End With
    Next i
End With
Set Grf = Nothing
End Sub

24/05/2011, 15h49
pettovsen

merci pour ta proposition

Toutefois, avec cette dernière, j'ai une autre erreur 1004 qui est générée "unable to set the weight property of the Border Class"

En fait, il semblerait que le code digère mal le format "Xlline". Pour la phase ou j'effeace les anciennes lignes, je suis d'ailleurs obligé de passer le graphique en type "xlColumnClustered" sans quoi j'ai un message d'erreur. Je ne peux malheureusement pas appliquer cette "gymnastique" pour le format de colonne
24/05/2011, 15h59
mercatog

J'ai testé le code sur un fichier exemple et je n'ai aucune erreur. si tu peux mettre un extrait du tiens.
25/05/2011, 14h14
pettovsen
Je ne suis malheureusement pas abilité à le faire.

En fait, en appliquant ton code, j'ai déjà le premier soucis qui apparait au moment d'effacer les séries existantes. Pour contourner cela, je transforme les séries en xl column Clustered:
Code:

1 2 3 .SeriesCollection(i).ChartType = xlColumnClustered .SeriesCollection(i).Delete .ChartType = xlLine
sans quoi la même erreur apparait que dans mon post initial. Après, apparait la 2ème erreur que je t'ai mentionnée.

Malheureusement, je ne peux pas faire cette petite "tricherie" au moment de modifier le format de mes lignes...
25/05/2011, 14h20
mercatog

Bonjour
Mets un extrait de ton fichier en PJ, reportant la même structure que le fichier réel.
25/05/2011, 15h01
pettovsen

Je ne peux pas. Toutefois, j'ai essayer de reproduire le tout dans un nvx fichier avec ton code et les données ci-dessous et le résultat est le même:

a b c d
janvier 0 0 0 0
février 1 2 1 3
mars 2 5 3 5
avril 3 4 4 2
mai 4 3 1 6
juin 5 9 6 4

Il semblerait donc que ma version d'excel soit liée au problème si ton code fonctionne sur ton pc
25/05/2011, 15h07
mercatog

8O
Et mois aussi, je ne peux pas te créer ton fichier avec ton problème.
C'est quoi les données que tu viens de reporter?

En plus et conformément à la charte du forum, je n'ai pas demandé Ton fichier; mais un fichier reportant la même structure que ton fichier réel (avec des données bidons et le graphique).

C'est ça la passion et le bénévolat. Sans plus
25/05/2011, 15h19
pettovsen

Je ne peux malheureusement pas mettre des pièces jointes. Ce n'est pas une question de mauvaise volonté. Sans quoi je l'aurais fait bien entendu

Ce que j'ai mis dans mon dernier message, n'est autre qu'une table avec 4 séries A, B, C, D pour les mois de janvier à février.
C'est cette série que j'ai utilisée en data source pour alimenrter le graph Xlline que j'ai testé pour ton code sur un nouveaux fichier