Macro graphique
Bonjour,
Je suis nouveau venu, merci pour vos futures reponses.
Mon probleme est le suivant:
J'ai une macro:
Range("A1:Z1").Select
Selection.CurrentRegion.Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("OF").Range("H32:H39"), PlotBy _
:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="OF"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Temps de production"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "OF"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nb de jours"
End With
et elle genere le graph en PJ.
J'aimerai avoir en abscisse les données colonne B correspondant au OF. J'ai essayé de remplacer
ActiveChart.SetSourceData Source:=Sheets("OF").Range("H32:H39"),
par
ActiveChart.SetSourceData Source:=Sheets("OF").Range("B32:B39;H32:H39")
mais cela ne marche pas.
Ci-joint une partie du fichier excel.
Par la suite je souhaiterai que les graph soit tries en fonction d'un critere colonne D (3 criteres en tous: cylindre, Top, Bottom donc 3 graph), est-ce possible?
Merci pour votre aide
-- il y a moins d’une minute --
Probleme resolue en partie.
J'arrive a avoir les numeros d'OF en absisse, maintenant j'aimerai uniquement tracer l'histo pour des valeurs differentes de 0 dans le Range("H52:H65") et differencier en 3 histo differents suivant une condition en colonne B (Les 3 condition seront cylindre, Top, Bottom)
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("OF").Range("H52:H65"), PlotBy:= _
xlColumns
ActiveChart.SeriesCollection(1).XValues = "=OF!R52C2:R65C2"
ActiveChart.SeriesCollection(1).Name = "=""Temps de production"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="OF"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Temps de production"
.Axes(xlCategory, xlPrimary).HasTitle = False
'.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "OF"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Nb de jours "
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
With ActiveChart.Axes(xlCategory)
.HasMajorGridlines = False
.HasMinorGridlines = False
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = True
.HasMinorGridlines = False
End With
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False
Windows("CP+cycles+taches.xls").SmallScroll Down:=3
End Sub
Merci pour votre aide
Bonjour,
Personne aurait une piste pour m'aiguiller dans mes recherche?
merci,
manu
Bonjour Eizo,
Je fais pas mal de graphiques aussi mais j'ai jamais essayé de faire un test sur le remplissage des séries, je construit ailleurs mes données, mais je suis pas sûr que ça soit faisable directement dans la déclaration des données...
Les experts vont passer, soit patient!
Bonne soirée
Bonjour Reuk,
Merci de ta reponse. Je vais etudier la piste, cependant je cherche une solution totalement automatisé car les personnes qui se serviront de ce fichier sont pas forcement a l'aise avec Excel.
A plush