Colorier les objets d'un graphique [VBA Excel] - VB/VBA/VBS - Programmation
Marsh Posté le 25-05-2006 à 08:53:15
Utilise le macro recorder cela te donnera une idée du code associé qu'il te restera à modifer selon tes désiderata
Marsh Posté le 29-05-2006 à 15:42:41
Je ne vois pas en quoi l'enregistreur de macro pourrait m'aider...
Marsh Posté le 31-05-2006 à 09:44:08
Tegu, j'ai crois avoir déjà mis mon code en VBA. Mon problème n'est pas de savoir comment on fait pour coder...puisque j'ai dejà un bout de code.
Mais j'aimerai connaitre les changements à effectuer dans ce code,afin qu'il fonctionne parfaitement.
J'ai l'impression que les objets de mon graphique ne sont pas traité dans le même ordre que les enregistrements de mon tableau.
Marsh Posté le 29-06-2006 à 12:37:35
Personne n'a une idée à me proposer? Parce que la je cale depuis un bon bout de temps...
Marsh Posté le 29-06-2006 à 13:11:33
Mafiou a écrit : Personne n'a une idée à me proposer? Parce que la je cale depuis un bon bout de temps... |
et plutot que d'appliquer une macro, tu fais une fonction condition sur tes cellules ?
pas nécessairement besoin de VB pour ca à ce moment là
Marsh Posté le 06-07-2006 à 12:55:41
Jpcheck, si j'applique une couleur a ma cellule avec une fonction "SI", les objets de mon grpahique pourront prendre la même couleur que celle de la cellule?
Marsh Posté le 06-07-2006 à 14:35:40
Mafiou a écrit : Jpcheck, si j'applique une couleur a ma cellule avec une fonction "SI", les objets de mon grpahique pourront prendre la même couleur que celle de la cellule? |
ben en principe oui avec la methode interior.colorindex de ta cellule injectée dans la couleur de ton graphe.
Marsh Posté le 24-05-2006 à 11:35:43
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 :
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...