[VBA Excel] Colorier les objets d'un graphique

Colorier les objets d'un graphique [VBA Excel] - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 24-05-2006 à 11:35:43   

Reply

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

Reply

Marsh Posté le 29-05-2006 à 15:42:41    

Je ne vois pas en quoi l'enregistreur de macro pourrait m'aider...

Reply

Marsh Posté le 29-05-2006 à 16:41:26    

Les macro sont modifiables et sont codées en VBA...

Reply

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.

Reply

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

Reply

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à

Reply

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?

Reply

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.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed