Mise en forme de barres d'erreur par macro

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 !

citizenbaban

XLDnaute Junior
Bonjour à tous,

J'ai un petit graphique qui se crée automatiquement par macro et je voudrais, dans le même temps, intégré une barre de seuil sur l'axe Y, à une valeur donnée.
Ca, ça tourne, en partie grâce au infos trouvées sur le forum.
J'ai en effet créé cette barre de seuil en insérant une nouvelle série à laquelle j'ai ajouté une barre d'erreur sur la largeur du graph.

Le petit problème que j'ai réside dans la mise en forme de cette barre d'erreur. En effet, dans ma macro (copiée en directe pourtant) la mise en forme ne se fait que sur la barre d'erreur verticale, et non pas horizontale.

Voici le code en question :
Code:
Sub Barre_erreur()

    ActiveSheet.ChartObjects("Graphique BFu").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(8).Values = "=Données!$I$1"
    ActiveChart.SeriesCollection(8).Select
    ActiveChart.SeriesCollection(8).ChartType = xlXYScatterLinesNoMarkers
    ActiveChart.SeriesCollection(8).Select
    ActiveChart.SeriesCollection(8).HasErrorBars = True
    ActiveChart.SeriesCollection(8).ErrorBars.Select
    ActiveChart.SeriesCollection(8).ErrorBar Direction:=xlY, Include:= _
        xlMinusValues, Type:=xlFixedValue, Amount:=1
            With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
    End With
    With Selection.Format.Line
        .Visible = msoTrue
        .Weight = 1.5
    End With
    ActiveChart.SeriesCollection(8).ErrorBars.Select
    ActiveChart.SeriesCollection(8).ErrorBars.EndStyle = xlNoCap

    ActiveChart.SeriesCollection(8).ErrorBar Direction:=xlX, Include:= _
        xlPlusValues, Type:=xlFixedValue, Amount:=(ThisWorkbook.ActiveSheet.Range("I2").Value)
      With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With

End Sub


J'ai mis une extraction de mon fichier en pièce jointe pour que ce soit un peu plus parlant.

Merci.
Bonne journée ensoleillée à tous

Citizen
 

Pièces jointes

Re : Mise en forme de barres d'erreur par macro

Bonjour à tous,

Un petit Up, avec quelques nouvelles infos.
Après différents essais de modif, d'enregistrement de macro, etc etc, il s'avère que les modifications de mise en forme de la macro sont bien prises en compte, mais uniquement sur la barre d'erreur verticale. En aucun cas, la mise en forme ne s'applique sur la barre horizontale, peu importe le nombre ou la place de "bloc de code" de mise en forme, ce sont toujours les derniers paramètres de mise en forme qui sont appliqués sur la barre verticale.
Ca me rend dingue 😕
 
- 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
7
Affichages
702
Retour