VBA, Objet requis
Résolu
zanzib
Messages postés
28
Statut
Membre
-
zanzib Messages postés 28 Statut Membre -
zanzib Messages postés 28 Statut Membre -
Bonjour,
Je cherche a faire une macro me créant deux graphique cote a cote sur la même page,
Mais avant de pouvoir vraiment testé ma macro j'ai une erreur Objet requis pointant sur le Sub,
Voici mon code:
Sub patate()
Dim plage As Range
Set plage = Application.InputBox(prompt:="Sample", Type:=8)
Setnouv = Workbooks.Add
Set gr = nouv.Charts.Add
Set Z = 0
While Z <> 2
Z = Z + 1
With gr
.SetSourceData Source:=plage
.ChartType = xl3DLine
.Location where:=xlLocationAsNewSheet
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "TEMPS"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Delta_d"
.PlotArea.Interior.ColorIndex = 2
.Axes(xlValue).MajorGridlines.Border.LineStyle = xlDot
.ChartArea.Font.Size = 14
.Deselect
End With
Wend
With Sheets(1)
.Shapes("Chart 1").Left = 0
.Shapes("Chart 1").Top = 0
.Shapes("Chart 2").Top = 0
.Shapes("Chart 2").Left = .Shapes("Chart 1").Width + 5
End With
End Sub
Si vous avez une idée de resolution.
Cordialement Nicolas
Je cherche a faire une macro me créant deux graphique cote a cote sur la même page,
Mais avant de pouvoir vraiment testé ma macro j'ai une erreur Objet requis pointant sur le Sub,
Voici mon code:
Sub patate()
Dim plage As Range
Set plage = Application.InputBox(prompt:="Sample", Type:=8)
Setnouv = Workbooks.Add
Set gr = nouv.Charts.Add
Set Z = 0
While Z <> 2
Z = Z + 1
With gr
.SetSourceData Source:=plage
.ChartType = xl3DLine
.Location where:=xlLocationAsNewSheet
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "TEMPS"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Delta_d"
.PlotArea.Interior.ColorIndex = 2
.Axes(xlValue).MajorGridlines.Border.LineStyle = xlDot
.ChartArea.Font.Size = 14
.Deselect
End With
Wend
With Sheets(1)
.Shapes("Chart 1").Left = 0
.Shapes("Chart 1").Top = 0
.Shapes("Chart 2").Top = 0
.Shapes("Chart 2").Left = .Shapes("Chart 1").Width + 5
End With
End Sub
Si vous avez une idée de resolution.
Cordialement Nicolas
Cependant, cela ne résout pas mon problème d'objet requis sur mon Sub. Auriez vous une solution?
Cordialement
set z = z + 1? Je vous ai ecrit que ce n'est pas bon, vous devez ecrire:
Z=0 et pour l'incrementation Z=Z+1 c'est tout
le Set definit une variable en tant qu'objet