Aide Excel

Forum d'aide et d'entraide sur Excel : cours, astuces, tutoriaux...
 
AccueilPortailFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 macro et graph

Aller en bas 
AuteurMessage
seb
Membre


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

MessageSujet: macro et graph   Ven 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
Voir le profil de l'utilisateur
seb
Membre


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

MessageSujet: Re: macro et graph   Ven 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
Voir le profil de l'utilisateur
 
macro et graph
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Graph test de Kelkun [Photoshop]
» Demande de partenariat avec Cherry-Graph [Accepté]
» Graph Commandes
» Rêves de graph
» Element Graph'

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Aide Excel :: Entraide & apprentissage :: Cours et astuces-
Sauter vers: