Aide Excel
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

Aide Excel

Forum d'aide et d'entraide sur Excel : cours, astuces, tutoriaux...
 
AccueilPortailRechercherDernières imagesS'enregistrerConnexion
Le Deal du moment : -24%
PC Portable Gaming 15.6″ Medion Erazer Deputy ...
Voir le deal
759.99 €

 

 macro et graph

Aller en bas 
AuteurMessage
seb
Membre



Nombre de messages : 2
Date d'inscription : 20/10/2006

macro et graph Empty
MessageSujet: macro et graph   macro et graph EmptyVen 20 Oct à 16:27

salut tout le monde je suis en train de secher sur une macro qui me permettra ( si elle fonctionne) de générer 2 graph diférents

je suis sur le premier graph :

il me faut creer un graph sur la feuille active il me faut le positionner a un endroit precis il me faut qu'il fasse une taille précise ( il doit s'intrgrer dans un tableau, je ne crée pas une feuille à part)

pour quoi je souligne les mots "feuille active" ? c'est parsque j'ai besoin de cette sur plusieur feuille différentes. ces feuilles n'ont pas un nom systematiquement identique

j'ai essayé avec le systeme d'ennregistrement automatique sa m'avance bien mais je butte sur sa :

ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("décembre1990").Range("L13")

a la place de "decembre1990" il me faudrai un truc qui donne la feuille active ( j'ai remplacé par activesheet sa n'a pas marché)

aussi exceldonne par défaut un nom au graph comment je fait pour changer ce nom:

ActiveSheet.Shapes("Graphique 14").IncrementLeft 133.5

aucun moment je n'ai demandé que ce graphe s'appelle "Graphique 14" comment je peut changer sa ?
il n'y a nomplus aucune ligne qui montre que ce grapphe sera nommé "graphique 14" ( ce serai trop facile, cet ordi ce moque de moi Enervé !! Diable )


merci pour les réponses
Revenir en haut Aller en bas
seb
Membre



Nombre de messages : 2
Date d'inscription : 20/10/2006

macro et graph Empty
MessageSujet: Re: macro et graph   macro et graph EmptyVen 20 Oct à 16:58

au sujet de la feuille active j'ai trouvé il fallait suprimer sa : ActiveChart.SetSourceData Source:=Sheets("décembre1990").Range("L13").

voila ce que me fait excel avec l'enregistreur de macro quan je fait un graphe :

Sub Macro10()
'
' Macro10 Macro
' Macro enregistrée le 20/10/2006 par publespace
'


Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "=mai!R2C4:R32C4"
ActiveChart.SeriesCollection(1).Name = "=mai!R1C4"
ActiveChart.SeriesCollection(2).Values = "=mai!R2C4:R32C4"
ActiveChart.SeriesCollection(2).Name = "=mai!R1C4"
ActiveChart.SeriesCollection(3).Values = "=mai!R2C5:R32C5"
ActiveChart.SeriesCollection(3).Name = "=mai!R1C5"
ActiveChart.SeriesCollection(4).Values = "=mai!R2C6:R32C6"
ActiveChart.SeriesCollection(4).Name = "=mai!R1C6"
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="evolution mai"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Evolution"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.HasLegend = True
ActiveChart.Legend.Select
Selection.Position = xlTop
ActiveChart.PlotArea.Select
Selection.ClearFormats
ActiveChart.SeriesCollection(4).Select
With Selection.Border
.ColorIndex = 45
.Weight = xlThin
.LineStyle = xlContinuous
End With
With ActiveChart.Axes(xlCategory)
.MinimumScaleIsAuto = True
.MaximumScale = 32
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
With ActiveChart.Axes(xlCategory)
.MinimumScale = 0
.MaximumScale = 32
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = 45
.MarkerStyle = xlX
.Smooth = True
.MarkerSize = 5
.Shadow = False
End With
ActiveChart.Axes(xlCategory).Select
ActiveChart.ChartArea.Select
ActiveChart.Location Where:=xlLocationAsObject, Name:="mai"
ActiveSheet.Shapes("Graphique 14").IncrementLeft 133.5
ActiveSheet.Shapes("Graphique 14").IncrementTop -139.5
ActiveSheet.Shapes("Graphique 14").ScaleWidth 1.18, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Graphique 14").ScaleHeight 1.42, msoFalse, _
msoScaleFromTopLeft
ActiveWindow.Visible = False
Windows("exploitation.xls").Activate
Range("H39").Select
End Sub



en bas il nomme le graphe "graphique 14" ( c'est au moment ou je le redimentionne)

aucune ligne dans la macro ne donne de nom au graphe alors pourquoi il s'appelle "graphique 14"? et comment on fait pour changer sa ?

merci encore
Revenir en haut Aller en bas
 
macro et graph
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» QUEL GRAPH?
» stat avec graph et %
» Ne pas tenir compte des blanc dans un graph
» macro excel...

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Aide Excel :: Entraide & apprentissage :: Cours et astuces-
Sauter vers:  
Ne ratez plus aucun deal !
Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
IgnorerAutoriser