Discussion :

[lelensois16]

Bonjour,

Je dois réaliser un graphique dynamique ( l'utilisateur choisit les paramétres ). Le tutorial de loufab m'a beaucoup servi pour le réaliser.

Maintenant , j'aimerai réaliser un histogramme empilé et groupé. donc le type du graphique est à la fois 51 et 52.

Contrairement à l'image suivante , je voudrais un graphique qui regroupe les années



Des solutions sont possibles sous Excel (via le TCD ou en fusionnant les cellules ) or ces options ne sont pas disponibles dans MSGraph. Par ailleurs , d'autres disent qu'il faut réaliser 2 histogramme empilés séparément et ensuite les superposer en faisant attention aux échelles...

Voici la requête dont est issu le graphique ( chaque requête est généré en VBA )

la requête de base

Code sql :

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

Select   Year(Date_pose)  As Tranche , type_action As Colonne  , Count(*) As Donnees , 'étiquettes posées' As Etat  FROM [Temporary_File]  WHERE Date_pose IS NOT NULL  AND Date_pose IS NOT NULL  GROUP BY  Year(Date_pose)   , type_action  UNION   Select   Year(Date_pose)  As Tranche , type_action As Colonne  , Count(*) As Donnees , 'étiquettes résolues' As Etat  FROM [Temporary_File]  WHERE Date_pose IS NOT NULL  AND  date_real Is Not Null And date_real<>#1/1/2001#  GROUP BY  Year(Date_pose)   , type_action

la requête pivot

Code sql :

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

TRANSFORM Sum(ESSAI_GRAPH2.Donnees) AS SOMME  SELECT Etat , Tranche  FROM ESSAI_GRAPH2  GROUP BY  Etat , Tranche ORDER BY Tranche  PIVOT ESSAI_GRAPH2.Colonne

J'espère avoir été clair
Bien Cordialement

RM

[lelensois16]

Bonjour,

J'ai une idée pour la question , qu'en pensez vous ? :

1 - Réduire au maximum l'intervalle entre les histogrammes

Code :

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

 vlChart.ChartGroups(1).GapWidth = 0

2 - Enlever une ligne sur 2 du Datasheet mais je ne comprends pas pourquoi cette ligne de code ne marche pas ...

Code :

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

1
2
3
4
5
 
'Nb étant le nombre de ligne complets du dataSheet
For i = 1 To nb Step 2
vlDataSheet.Rows(i).Insert Shift:=xlDown
Next

PS: je m'inspire très souvent du générateur de macro d'Excel pour automatiser mes graphiques sous Excel.

Bien cordialement.