legende abscisse vertical

[rafou29]

Bonjour,


J'ai un histogramme "empilé" qui a pour abscisse des dates. Je souhaiterais que ces dates s'affichent verticalement et non en fonction de la place dans le graphique (diagonal, vertical ,horizontal).

Pour cela j'aimerais savoir quel code me permettrait d'effectuer cette manipulation.

Voici le code que j'utilise pour créer mon histogramme :

Sheets("Sheet3").Select
    Range("B3:C30").Select
    Application.CutCopyMode = False
    Charts.Add
    ActiveChart.ChartType = xlColumnStacked
    ActiveChart.SetSourceData Source:=Sheets("Sheet3").Range("B3:C30") _
        , PlotBy:=xlColumns
    ActiveChart.SeriesCollection(1).Delete
    ActiveChart.SeriesCollection(1).XValues = "=Sheet3!B3:B30"
    ActiveChart.SeriesCollection(1).Name = "=""Arrêt"""
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet3"
    With ActiveChart
        .HasTitle = True
  If ComboBox30.Value = "X" Then .ChartTitle.Characters.Text = TextBox40.Value Else .ChartTitle.Characters.Text = "Arrêt"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Durée (min)"
    End With
    ActiveChart.HasLegend = False
    ActiveChart.HasDataTable = False

    ActiveChart.Axes(xlCategory).Select
    With ActiveChart.Axes(xlCategory)
        .CrossesAt = 1
        .TickLabelSpacing = 1
        .TickMarkSpacing = 1
        .AxisBetweenCategories = True
        .ReversePlotOrder = False
    End With

Merci de votre attention

 

[mutzik]

Re : legende abscisse vertical

bonjour Rafou,
joindre ton fichier aurait été plus intéressant pour nous ...
cela nous éviterait de tout recréer

 

[rafou29]

Re : legende abscisse vertical

Je pense que cela aurait été encore plus pénible pour vous car j'ai une userform bien chargée (5 onglets, 50 textbox, 30 combobox, etc...) et sa affiche des graphes de partout. J'ai déja du mal moi-même à m'y retrouver dans tous mes codes 🙂

Là j'ai mis la version super soft 😀

Désolé de na pas pouvoir te donner plus d'outils ...

 

[rafou29]

Re : legende abscisse vertical

Dsl bug de mon PC (il m'a multi-cité mon msg) 🙁

 

[rafou29]

Re : legende abscisse vertical

Personne a la moindre idée ?

 

[rafou29]

Re : legende abscisse vertical

Je viens de découvrir qu'avec Excel, il suffit de modifier le format de l'axe et de pivoter de 270° le texte mais quelqu'un connait-il le code qui permet d'automatiser cette fonction pour obtenir ainsi les valeurs en abscisse verticalement ?

 

[rafou29]

Re : legende abscisse vertical

Cela ne me dérange pas non plus que mes valeurs s'affichent en diagonale 🙄

 

[rafou29]

Re : legende abscisse vertical

Merci à Pierrot 93 qui m'a permis de trouver la solution !

Re,

regarde le code ci-dessous si il peut t'aider :

With Sheet3.ChartObjects(1).Chart.Axes(xlCategory).TickLabels
    .NumberFormat = "m/d/yyyy"
    .Orientation = 45
End With

@+

Il m'a suffit de le modifier un peu et c'était bon :

With ActiveChart.Axes(xlCategory).TickLabels
    .NumberFormat = "m/d/yyyy"
    .Orientation = 90
    End With