Mise en forme de barres d'erreur par macro

[citizenbaban]

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 :

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

 

[citizenbaban]

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

Personne n'a d'idée? ici? je n'y crois pas 😛

 

[citizenbaban]

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 😕