Discussion :

[Hugo8]

Bonjour,

C'est mon second message sur le forum (le premier étant la présentation). D'avance désolé si je ne respecte pas correctement le format des demandes.

Je suis en train de créer des graphiques sur Excel, tout fonctionne parfaitement sauf un point, la mise en forme du texte de la légende.
Je fais un graphique avec plusieurs séries à des dates différentes. Dans la légende je mets les dates pour différencier les séries.
En input de date je mets un format: Oct 2017
Mais quoi que je fasse il force et met la date en format dd/mm/aaaa.

J'aimerai changer le formating de la date mais je n'y arrive pas. Je pense qu'il faut jouer avec LengendEntry et LegendKey mais je m'en sors pas.
Voici un extrait du code: Je formate bien la colonne source des légendes en mmm yyyy mais la légende me le renvoie en dd/mm/aaaa

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
46
47
48
 
Sub MRT_plot()
 
'---------------------------------------------------------------------------------
'Formating date for legend
numrow = T.UsedRange.Rows.Count
 
T.Range("Z1" & ":Z" & numrow).Value = T.Range("D1" & ":D" & numrow).Value
T.Columns("Z:Z").EntireColumn.NumberFormat = "[$-0409]mmm yyyy"
 
Charts.Add
 
With ThisWorkbook
    ActiveChart.Move after:=.Sheets(.Sheets.Count) 'Ajoute chaque plot à la fin
End With
 
nameplot = T.Range("A" & L0) & "_MRT"  'Name for onglet
 
'----------------------------------------------------------------------------------------------
color_axes = RGB(134, 134, 134)
 
'Formating onglet and plot
With ActiveChart
    'Onglet title
    .Name = nameplot
    .Tab.Color = RGB(64, 64, 64)
    'Plot title
    .HasTitle = True
    .ChartTitle.Characters.Text = T.Range("A" & L0) & " - MRT plot"
    .ChartTitle.Font.Size = 22
End With
'---------------------------------------------------------------------------------------------------
                                    With ActiveChart
                                        .ChartType = xlXYScatter
                                        .SeriesCollection.NewSeries
                                        .SeriesCollection(i).Name = T.Range("Z" & L0_test).Value 'Date within legend box
                                        .SeriesCollection(i).XValues = T.Range("E" & CStr(L0_test) & ":E" & CStr(LFin_test - 1)) 'X values, Qg
                                        .SeriesCollection(i).Values = T.Range("M" & CStr(L0_test) & ":M" & CStr(LFin_test - 1)) 'Y values, THP
                                    End With
 
 
                                        'Legend box formating
                                    With ActiveChart
                                        .HasLegend = True
                                        .Legend.Format.Fill.ForeColor.RGB = RGB(256, 256, 256) 'blanc
                                        .Legend.Font.Size = 14
                                        .Legend.Border.Color = RGB(134, 134, 134)
                                    End With

[eriiic]

Bonjour,

avec mes tests (sur 2010 et en manuel) la légende prend bien le format des cellules.
Tu devrais préciser ta version.
eric

[Phil'oche]

Salut,

Tente peut-être, après la création de ton Chart :

Code :

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

ActiveChart.Axes(xlCategory).TickLabels.NumberFormat = "mmm yyyy"

[Hugo8]

@eriiic
Office Professionel Plus 2013.
Le format fonctionne sur la feuille tableur mais quand je vais le chercher pour la légende il reprend dd/mm/aaaa

@Phil'Oche
Si je fais ça je modifie mon axe des abscisses. Hors sur mon axe des abscisses ce n'est pas une variable date mais une variable débit

[Phil'oche]

@Phil'Oche
Si je fais ça je modifie mon axe des abscisses. Hors sur mon axe des abscisses ce n'est pas une variable date mais une variable débit

Oups... désolé, lecture en diagonale, je n'avais pas vu que tu parlais de la légende (pourtant, tu l'avais bien écrit... )

Je n'arrive pas à retrouver ce qui permettrait de "remonter" au format des étiquettes de cette légende. Il y a plusieurs propriétés, mais elles sont en lecture seule, donc non modifiable par le code...

Si tu en as la possibilité, peut-être qu'en insérant une colonne (masquée) à laquelle tu te réfèreras pour les données, et dans laquelle tes valeurs sont formatées comme désiré ?

[Hugo8]

Si tu en as la possibilité, peut-être qu'en insérant une colonne (masquée) à laquelle tu te réfèreras pour les données, et dans laquelle tes valeurs sont formatées comme désiré ?

C'est ce que j'ai fait en faisant

Code :

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

T.Columns("Z:Z").EntireColumn.NumberFormat = "[$-0409]mmm yyyy"

Mais ça ne fonctionne pas, il remet en format dd/mm/aaaa