Discussion :

[riaolle]

Bonjour,

Je souhaite forcer la couleur d'une série d'un graphique. J'ai enregistré un code vba grâce à l'enregistreur macro et avec quelques renseignements trouvés sur internet, j'arrive au code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
ActiveChart.SeriesCollection(6).Select
 
'Marker's color
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(64, 192, 0)
        .Transparency = 0.3
        .Solid
    End With

En l'essayant sur un fichier d'essai très simple avec un graphique,il marche sans problème. Cependant lorsque je l'intègre dans mon projet, ça ne veut plus marcher : la sélection change bien de couleur, mais elle prend toujours la même couleur (le bleu standard) quelque soit le RGB que je mets. De plus, la transparence n'est pas prise en compte non plus.

Je précise que le graphique est un graphique de TCD et que j'ai déjà utilisé la fonction ForeColor.RGB sur un autre graphique de TCD dans le même fichier excel et que cela marchait très bien.

Je ne comprend absolument pas d'où vient le problème et pourquoi le code marche ici, mais pas là ... Y a-t-il une syntaxe mal utilisée ?
Auriez-vous des conseils/pistes ... solutions ?


Par soucis de confidentialité, je ne peux pas vous transmettre tout le fichier, mais si vous avez besoin de plus de précisions, n'hésitez pas!

[Menhir]

Les Select / Selection créent souvent des problèmes (et son rarement utiles).
Essaye de t'en passer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With ActiveChart.SeriesCollection(6).Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(64, 192, 0)
    .Transparency = 0.3
    .Solid
End With

[riaolle]

Merci, je retiens le conseil!

Mais, malheureusement, ce n'est pas cela qui fait défaut. En plus, je viens de relancer mon programme et je remarque que maintenant, même aux endroits où le changement de couleur marchait auparavant, ce n'est plus le cas maintenant. Sur certains graphiques, les marqueurs sont invisibles => "aucun remplissage", alors que sur mon code, j'ai bien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveChart.SeriesCollection(2).Format.Fill.Visible = msoTrue

Je ne comprends plus rien ...

[riaolle]

J'ai un début de solution ...
En enlevant la propriété Transparency, l'affectation des couleurs marche à nouveau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
With ActiveChart.SeriesCollection(6).Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(64, 192, 0)
End With
 
'au lieu de 
With ActiveChart.SeriesCollection(6).Format.Fill
    .Visible = msoTrue
    .ForeColor.RGB = RGB(64, 192, 0)
    .Transparency = 0.3
End With

Pour l'instant, je me contente de cela, même si j'aurais préféré pouvoir contrôler la transparence aussi...

[Menhir]

N'y aurait-il pas une couleur de fond dans ton graphique qui, avec la transparence, se mélangerait à la couleur de ta série pour donner la couleur que tu ne souhaites pas ?