Discussion :

[Berzerk_]

Bonjour,

J'essaie de modifier la couleur d'une série d'un graphique en fonction de la valeur d'une variable "Couleur".

J'ai fait un premier jet en modifiant ce que me proposait l'outil de création automatique de macro.

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
Sheets("Feuille 1").ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Select
 
    With Selection.Interior 
        Select Case Couleur
            Case "Vert"
                .ColorIndex = 4
            Case "Jaune"
                .ColorIndex = 6
            Case "Orange"
                .ColorIndex = 45
            Case Else 'Rouge
                .ColorIndex = 3
        End Select
               .PatternColorIndex = 2
        .Pattern = xlSolid
    End With

Ca fonctionne bien, mais j'aimerai ne pas avoir à sélectionner la série, mais modifier directement sa valeur.

J'essaie donc de faire comme suit:

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
Set Serie1 = Sheets("Feuille 1").ChartObjects("Chart 1").SeriesCollection(1)
 
With Serie1.Interior
Select Case Couleur
            Case "Vert"
                .ColorIndex = 4
            Case "Jaune"
                .ColorIndex = 6
            Case "Orange"
                .ColorIndex = 45
            Case Else 'Rouge
                .ColorIndex = 3
        End Select
               .PatternColorIndex = 2
        .Pattern = xlSolid
End With

Ca bugge à la 1ère ligne et je ne comprends pas où est mon erreur.

Quelqu'un peut-il m'aider ?

Merci d'avance.

[mercatog]

Bonsoir,
Sauf erreur de ma part, tu dois sélectionner avant modification!
à la fin, tu sélectionne ailleurs, l'utilisateur ne verra pas ton graphique sélectionné!
Encore, je ne suis pas sûr

[Berzerk_]

Bonsoir,
Sauf erreur de ma part, tu dois sélectionner avant modification!
à la fin, tu sélectionne ailleurs, l'utilisateur ne verra pas ton graphique sélectionné!
Encore, je ne suis pas sûr

Malheureusement si. Même en resélectionnant mon point de départ, l'utilisateur voit un clignotement durant le déroulement de la macro.

Pourtant le manuel de formation VBA en ligne sur ce site propose un code sous la forme :

Code :

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

Set MaSerie = MonGraphe.SeriesCollection.NewSeries

qui a l'air de fonctionner. Mais je voudrais le faire avec une série déjà existante...

[mercatog]

Bonjour
ajoute

Code :

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

application.screenupdating=false

au début de ta sub

[Berzerk_]

Ca marche merci beaucoup !

Je ne pense pas que ce soit la manière la plus propre de procéder, mais ça fonctionne.