[VBA-E] Colorier les objets d'un graphique

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:

---

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...

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

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

Code:

---

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

---

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..:roll:

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:

---

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...:D

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...

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:

---

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... :(