Bonjour le forum,
J'aimerais que le plot Area soit séparé par couleur dépendamment de différente valeur en exemple en pièce jointe.
La macro me permet de faire le tableau du haut.
Mais je veux obtenir le tableau du bas aussi j'aimerais avoir deux solutions une avec Macro et une sans Macro.
Merci
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range( _
"'Sheet1'!$A$2:$A$2851")
ActiveSheet.Shapes("Chart 2").ScaleWidth 1.6096937883, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 2").ScaleHeight 1.2706211724, msoFalse, _
msoScaleFromTopLeft
ActiveChart.PlotArea.Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 255)
.Solid
End With
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText2
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.400000006
.Transparency = 0
.Solid
End With
End Sub
J'aimerais que le plot Area soit séparé par couleur dépendamment de différente valeur en exemple en pièce jointe.
La macro me permet de faire le tableau du haut.
Mais je veux obtenir le tableau du bas aussi j'aimerais avoir deux solutions une avec Macro et une sans Macro.
Merci
Sub Macro1()
'
' Macro1 Macro
'
'
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Range( _
"'Sheet1'!$A$2:$A$2851")
ActiveSheet.Shapes("Chart 2").ScaleWidth 1.6096937883, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Chart 2").ScaleHeight 1.2706211724, msoFalse, _
msoScaleFromTopLeft
ActiveChart.PlotArea.Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 255)
.Solid
End With
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText2
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0.400000006
.Transparency = 0
.Solid
End With
End Sub