Discussion :

[Mafiou78]

Bonjour,

Je suis débutant en VBA. J'aimerai pouvoir colorier les objets d'un graphique selon une valeur prédéfinie.

Voici mon code :

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
18
19
20
21
22
23
24
25
26
27
Sub colorier()  
 
Dim nbval, a, i, col As Integer  
 
ActiveSheet.ChartObjects("Graphique 3" ).Activate  
 
 
nbval = ActiveSheet.UsedRange.Rows.Count  
 
MsgBox nbval  
 
For a = 1 To nbval  
val_barre = Range("g" & a).Value  
 
Debug.Print val_barre  
 
If val_barre = "Utiles" Then  
col = 50  
Else  
col = 3  
End If  
 
ActiveChart.SeriesCollection(1).Points(a).Interior.ColorIndex = col  
 
Next  
 
End Sub

Ce code fonctionne à moitié. Il me différencie certains de mes objets, mais ils ne correspondent pas aux enregistrements de mon tableau.
Si je trie mon tableau avec lequel j'ai crée le graphique selon mon critère de couleur ( ici Utiles et Autres), et que je selectionne par exemple tous mes enregistrements "Utiles", ils m'affichent sur le graphique tous ces enregistrements, mais les couleurs ne sont pas celle associé à ce critère. J'ai objets des deux couleurs...

[Mafiou78]

Personne n'a d'idée sur comment faire?

[Mafiou78]

Je sais que mon erreur vient d'ici...

Code :

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

ActiveChart.SeriesCollection(1).Points(a).Interior.ColorIndex = col

[SfJ5Rpw8]

pourrai-tu essayer de nous décrire à nouveau ton probléme ... ce qui ce passe et ce que tu voudrai qu'il te passe... j'ai du mal à suivre..

[Mafiou78]

J'ai un tableau données sur une feuille excel, et je fais un graphique a bulles à partir de ces données sur une autre feuille.
J'ai une colonne de ce tableau qui va me servir a diffencier les bulles de mon graphique. J'aimerai les différencier de deux couleurs différentes selon le paramètre de cette colonne. Si il est marqué "utile", ma bulle sera verte, si il est marqué autre chose elle sera rouge.

Cette ligne ne fonctionne pas :

Code :

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

ActiveChart.SeriesCollection(1).Points(a).Interior.ColorIndex = col

Il ne dit qu'il ne peut pas lire la propriété Interior de la classe point. Cette ligne me sert a associer la couleur du paramètre aux objets graphiques ( les bulles).

Merci de te pencher sur mon problème...

[Mafiou78]

Ce la fait un mois que je suis dessus etje ne trouve toujours pas la solution a apporter pour que le code fonctionne.
Et les réponses sur les forums ne font pas foule non plus.
Une petite aide please...

[ouskel'n'or]

Si tu sélectionnes le point a, tu colories le pooint a. Si tu sélectionnes la série, tous les points de ta série seront coloriés (!)
Par exemple

Code :

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

1
2
3
4
5
    ActiveChart.SeriesCollection(2).Select
    With Selection.Interior
        .ColorIndex = 34
        .Pattern = xlSolid
    End With

Colorie tous les points de la série de la même couleur

Ou je n'ai pas compris...