Discussion :

[KINOU94]

Bonjour à tous,

je publie ce post puisque je n'ai pas réussi à trouver une réponse à mon sujet. J'ai créer un petit d'outil composé de deux pages.
Une page constitue un tableau de données. L'autre page accueille des graphiques croisés dynamiques. Leurs données sont issues du tableau. J'ai crée un bouton pour passer d'une page à l'autre. A travers ce bouton, j'en ai profiter pour rafraichir ma page graphique pour actualiser les données. Le type de graphique qui me pose problème concerne un "histogramme".
Chaque colonne possède sa propre légende. Quand je fais un clique droit sur une légende, je peux attribuer une mise en forme de cette légende que sur LA colonne en question. Si je ne me trompe pas, sur un graph "histogramme", il n'y a pas moyen de sélectionner l'ensemble des légendes et de préparer une mise en forme général.
Du coup, j'ai préparer légende après légende ma mise en forme. Mais à chaque refreshall, toutes mes légendes disparaissent.

Je me suis dit, c'est pas grave, je vais coder les légendes. Sur mon histogramme, j'ai réglé le fait qu'il ne peut y apparaitre au maximum 10 colonnes pour afficher les 10 meilleurs établissements de mon tableau.

Du coup, j'ai codé dans ma page:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
ActiveSheet.ChartObjects("PMVAL2DEP_nbMOA").Activate
    ActiveChart.FullSeriesCollection(1).ApplyDataLabels
    ActiveChart.FullSeriesCollection(1).DataLabels.Select
ActiveChart.FullSeriesCollection(2).ApplyDataLabels
    ActiveChart.FullSeriesCollection(2).DataLabels.Select
ActiveChart.FullSeriesCollection(3).ApplyDataLabels
    ActiveChart.FullSeriesCollection(3).DataLabels.Select
ActiveChart.FullSeriesCollection(4).ApplyDataLabels
    ActiveChart.FullSeriesCollection(4).DataLabels.Select
...
ActiveChart.FullSeriesCollection(10).ApplyDataLabels
    ActiveChart.FullSeriesCollection(10).DataLabels.Select

Mais le problème, c'est que si dans mon tableau, il ne sort que deux établissements, alors seulement les deux premières FULLSERIESCOLLECTION(1/2) sont lus et j'ai un message d'erreur à partir de ma ligne FULLSERIESCOLLECTION(3).

Je ne sais pas comment atteindre mon objectif suivant qui est:

Après un Activeworkbook.refreshall, peu importe le nombre de colonnes de mon histogramme (<10), je veux que chaque colonne est sa légende.

Quelqu'un a une idée ?


Merci milles fois !

Cordialement

[joe.levrai]

Bonjour,

un exemple pas des plus optimisés :

Code :

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

1
2
3
4
5
6
7
8
Sub er()
Dim MaSerie As Series
 
ActiveSheet.ChartObjects(1).Activate
    For Each MaSerie In ActiveChart.SeriesCollection
        MaSerie.ApplyDataLabels
    Next MaSerie
End Sub

[KINOU94]

Merci, ca marche parfaitement !

Je glisse mon code ci dessous si quelqu'un est intéressé pour voir comment j'ai adapté la solution indiquée.

Bonne continuation !

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub CommandButton1_Click()
 
 
 
 
Dim moeValue As String
Dim attributaireValue As String
Dim dptValue As String
Dim moa As String
Dim Maserie As Series
 
 
Feuil5.Select
Feuil5.Unprotect
moeValue = Feuil5.Range("H4").value
attributaireValue = Feuil5.Range("H5").value
moaValue = Feuil5.Range("H3").value
dptValue = Feuil5.Range("H6").value
 
If (moeValue = "" And moaValue = "" And attributaireValue = "" And dptValue <> "") Then
   Feuil11.Visible = xlSheetVisible
   Feuil11.Select
   Feuil11.Unprotect
   ActiveWorkbook.RefreshAll
   ActiveWindow.Zoom = 80
 
ActiveSheet.ChartObjects("PMVAL2DEP_nbMOA").Activate
ActiveSheet.ChartObjects("PMVAL2DEP_nbMOA").Select
For Each Maserie In ActiveChart.SeriesCollection
Maserie.ApplyDataLabels
Maserie.DataLabels.Select
Selection.ShowCategoryName = True
Selection.Separator = "" & Chr(13) & ""
Selection.ShowSeriesName = True
Selection.ShowValue = True
    With Selection.Format.TextFrame2.TextRange.Font.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid
     End With
Next Maserie
    Feuil11.Protect