legende abscisse vertical

  • Initiateur de la discussion Initiateur de la discussion rafou29
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

rafou29

XLDnaute Junior
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 :

PHP:
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
 
Dernière édition:
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 ...
 
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 ?
 
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 :

Code:
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 :

PHP:
With ActiveChart.Axes(xlCategory).TickLabels
    .NumberFormat = "m/d/yyyy"
    .Orientation = 90
    End With
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
520
Réponses
0
Affichages
459
Réponses
4
Affichages
2 K
Retour