Changer la couleur d'un tracé/série Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
t
thoplard
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 23 mai 2019
Version d'Excel : Microsoft office 365 Proplus

Message par thoplard » 24 mai 2019, 10:49

Bonjour à tous,

Je développe (comme je peux) une macro pour faciliter la création d'un graphique sur une feuille complète. Avec le code ci-joint je crée cette feuille graphique mais j'aimerai que le tracé soit de la couleur rouge auriez vous une solution s'il vous plait ?
Set nouveau_graphique1 = Charts.Add 'Créer la nouvelle feuille graphique
With nouveau_graphique1

.SetSourceData Source:=Sheets("Feuil1").Range(Range("Feuil1!A1").Offset(0, 0), Range("Feuil1!A1").Offset(0, 0).End(xlDown)) ' définition des plages de données
.Name = "Echantillon 1"
.ChartType = xlXYScatterSmoothNoMarkers
.HasTitle = True
.ChartTitle.Text = "Evolution de la force appliquée sur l'échantillon"
.HasAxis(xlCategory, xlPrimary) = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Text = "Force (N)"

End With

Sheets("Echantillon 1").Tab.Color = RGB(255, 0, 0)
t
thoplard
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 23 mai 2019
Version d'Excel : Microsoft office 365 Proplus

Message par thoplard » 24 mai 2019, 14:11

Problème résolu à l'aide d'enregistrement de macro puis copier coller :lole:
Set nouveau_graphique1 = Charts.Add 'Créer la nouvelle feuille graphique
With nouveau_graphique1

.SetSourceData Source:=Sheets("Feuil1").Range(Range("Feuil1!A1").Offset(0, 0), Range("Feuil1!A1").Offset(0, 0).End(xlDown)) ' définition des plages de données
.Name = Sheets("Feuil1").Range("A1")
.ChartType = xlXYScatterSmoothNoMarkers
.HasTitle = True
.ChartTitle.Text = "Evolution de la force appliquée sur l'échantillon"
.HasAxis(xlCategory, xlPrimary) = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Text = "Force (N)"
.Tab.Color = RGB(255, 0, 0)
ActiveChart.ChartArea.Select
    ActiveChart.FullSeriesCollection(1).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With


End With

Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message