Comment changer les couleurs d'un graphique.

**rob1son76** · 08/09/2010, 17h53

BOnjour,

J'ai un graphique avec plusieurs champs (AT MTD, AT YTD, PA MTD, PA YTD).
C'est un graphique en barre (histogramme).
Je voudrai que les couleurs change automatiquement en fonction d'une table objectif.

Expl: Si la valeur de AT MTD dépasse celle de la table objectif je voudrai que la couleur de la colonne soit rouge sinon en vert.
Pareil pour les autres couleurs.

Je sais le faire sur excel (en créant une colonne rouge et une verte et en juxtaposant les 2 colonnes) mais pas sur access.

Je voudrai le faire pas programmation.

J'ai pensé faire une requête avec le nom des champs (AT MTD etc) et mettre comme valeur rouge ou vert selon la valeur.
Puis par programmation dire que la couleur de la colonne du graph soit celle du champs (vert ou rouge).

Mais je ne sais pas le faire.

Comment appelé une barre d'un graph en vb?
Et comment dire que cette barre doit prendre telle couleur?

Si vous avez d'autre idée je suis prenneur.

Merci.

**loufab** · 09/09/2010, 10h18

Bonjour,

Voici un extrait de code
vChart doit être instancié suivant la méthode donnée dans une précédente discussion sur ce forum.

Code :

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

1
2
3
4
5
 
        With vChart.SeriesCollection(i)
            .Fill.BackColor.SchemeColor = 2
            .Fill.ForeColor.SchemeColor = 2 + i 
        End With

**rob1son76** · 09/09/2010, 14h38

Merci de ta réponse.
Mais je n'est pas trouvé la discution dont tu parles.
Te souviens tu du nom du sujet?
Je voulais savoir aussi comment récupérer le nom de la série.
Parce que la je ne voit pas comment dire qu'elle couleur mettre pour chaque barre du graph en fonction de valeur que je récupérai dans des variable.
Je vais mieux exprimmer ce que j'ai en tête.

Je veux faire un graph en barre avec 3 variables (AT,PSI et PA).
Chacune de ces variables doit avoir 2 barres sur le graph (MTD et YTD).
Je pensais récupérer par une requete en sql le mot vert ou rouge en fonction des valeurs des 3 variables et d'une table.
(J'ai une table objectif avec 2 valeurs pour chaques variables, Exp: AT MTD et AT YTD).
Je compare les valeurs de la requête et de la table, et si la valeur dépasse je voulais qu'une variable temporaire prenne pour valeur "rouge" et "vert" si inversement.(expl ATMTDC)
Après je pensais dire par programmation que si ATMTDC est égale à "vert", la barre de la série AT MTD soit verte sinon rouge.

Est-ce possible?
Ou bien il y a plus facile?

J'espère être clair mais j'en suis pas sur.

**rob1son76** · 09/09/2010, 15h19

Je pense pouvoir m'exprimer plus simplement.
J'ai un histogramme avec 6 barres (AT MTD,AT YTD,PSI MTD,PSI YTD,PA MTD et PA YTD).
Je voudrai savoir comment appelé chacune de ces barre en programmation.

Expl:

Code :

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

1
2
3
if me.barre.name="AT MTD" then
msgbox("trouvé")
end if

Après je pense pouvoir faire en sorte de changer la couleur de cette barre en fonction d'une requête sql.

Merci

**loufab** · 09/09/2010, 21h30

Voici quelques discussions :

http://www.developpez.net/forums/d95...rer-nom-serie/

http://www.developpez.net/forums/d96...jet-graphique/

Une fois l'objet chart instancié tu pourras le manipuler. N'oublie pas de télécharger le chm msgraph

http://www.microsoft.com/downloads/e...displaylang=en

Cordialement,

**rob1son76** · 10/09/2010, 10h46

Merci loufab.
Avec ca je devrai m'en sortir.
j'ai une petite question encore.
Le fichier que je doit dl c'est un .exe.
Comme je suis au travail je ne sais pas si je peut l'installer.
Qu'est-ce que fait se programme exactement?
Ca permet de récupérer le code vb de ton graph?
Je vais voir si j'ai le droit de l'installer.
Merci encore.

**rob1son76** · 10/09/2010, 11h00

C'est bon je l'ai installé.
Ca va bcp m'aider.
Mais je risque quand même de te redemander de l'aide.

**rob1son76** · 10/09/2010, 11h56

Mon graph est directement sur un etat pas dans un formulaire.
J'ai essayé un bout de code sur l'ouverture de l'état mais il me marque qu'il n'y a pas d'objet dépendant ou indépendant OLE.
Peut on mettre le code sur un état ou bien il faut que le graph soit dans un formulaire?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Report_Open(Cancel As Integer)
Dim Graph   As Graph.Chart
Dim oDataS  As Object
 
Set MonGraph = Me.Graphique14.Object.Application.Chart
Set oDataS = Graph.Application.DataSheet
 
'On compte le nombre de points (Barre) du graphique
nbBarre = Graph.SeriesCollection.Count
MsgBox (nbBarre)
End Sub

**loufab** · 10/09/2010, 14h36

Bonjour,

Normalement pas de contre indication Etat/formulaire.

Sur ouverture c'est un tôt. Essaye sur Formatage d'une section.

Cordialement,

**rob1son76** · 13/09/2010, 12h35

Bonjour,

j'ai fait se bout de code dans mon formulaire graphique:

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
With Graph.SeriesCollection(NomBarre)
    .HasDataLabels = True
    .HasLeaderLines = False
    '.DataLabels.NumberFormat = "##"
 
        With .DataLabels
            .Font.Size = 8
            .NumberFormat = "##"
            .ShowSeriesName = True
            '.ShowLegendKey = False
            '.ShowCategoryName = False
            '.ShowValue = False
            .Position = xlLabelPositionCenter
        End With
End With

Ca m'affiche le nom de la serie et sa valeur cote à cote.

je voulais savoir si il était possible de les séparer.
Je voudrai avoir les valeur au centre et les nom en bas de la barre.

je n'ai pas trouvé comment faire.

Merci