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 :
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
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 SubJ'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